3.3.4 Testing "Hello world" locally

modena@makoto 12:18:20/140430(..my_directory/testsuite)% ls -lR        
total 8
drwxr-xr-x  2 makoto  wheel  512 Apr 30 12:16 config
drwxr-xr-x  2 makoto  wheel  512 Apr 30 12:16 lib

./config:
total 4
-rw-r--r--  1 makoto  wheel  37 Apr 30 12:14 default.exp

./lib:
total 4
-rw-r--r--  1 makoto  wheel  107 Apr 30 12:15 mytest-defs.exp

modena@makoto 12:18:22/140430(..my_directory/testsuite)% head config/default.exp lib/mytest-defs.exp 
==> config/default.exp <==
load_lib mytest-defs.exp
mytest_init

==> lib/mytest-defs.exp <==
proc mytest_init { args } {
#   global variable_name

    print "   ***  Hello World ! *** "
    return
}

modena@makoto 12:18:36/140430(..my_directory/testsuite)%

3.4.3 Remote testing "Hello world"

181  # Compare two files line-by-line.  FILE_1 is the actual output and FILE_2
182  # is the expected output.  Ignore blank lines in either file.
183  #
184  # FILE_2 is a series of regexps, comments and # directives.  The directives
185  # are:
186  #
187  #    #pass
188  #        Treat the test as a PASS if everything up till this point has
189  #        matched.  Ignore any remaining lines in either FILE_1 or FILE_2.
190  #
191  #    #failif
192  #        Reverse the sense of the test: expect differences to exist.
193  #
194  #    #...
195  #    REGEXP
196  #        Skip all lines in FILE_1 until the first that matches REGEXP.
197  #
198  # Other # lines are comments.  Regexp lines starting with the `!' character
199  # specify inverse matching (use `\!' for literal matching against a leading
200  # `!').  Skip empty lines in both files.
201  #
202  # The first optional argument is a list of regexp substitutions of the form:
203  #
204  #    EXP1 SUBSPEC1 EXP2 SUBSPEC2 ...
205  #
206  # This tells the function to apply each regexp substitution EXPi->SUBSPECi
207  # in order to every line of FILE_2.
208  #
209  # Return nonzero if differences exist.
210  proc regexp_diff { file_1 file_2 args } {
211      set eof -1
212      set end_1 0
213      set end_2 0
214      set differences 0
215      set diff_pass 0
216      set fail_if_match 0
217      set ref_subst ""
218      if { [llength $args] > 0 } {
219          set ref_subst [lindex $args 0]
220      }
...

333          } else {
334              set differences 0
335          }
336      }
337
338      close $file_a
339      close $file_b
340
341      return $differences
342  }

gas/testsuite/gas/all/gas.exp
    proc test_cond
gas/testsuite/gas/*/*.exp
gas/testsuite/lib/gas-defs.exp
    proc run_dump_test

binutils-2.24/gas/testsuite/config/default.exp
  load_lib gas-defs.exp
  binutils-2.24/gas/testsuite/lib/gas-defs.exp

proc load_common_lib { name } {
proc gas_version {} {
proc gas_host_run { cmd redir } {
proc gas_run { prog as_opts redir } {
proc gas_run_stdin { prog as_opts redir } {
proc all_ones { args } {
proc gas_start { prog as_opts } {
proc gas_finish { } {
proc want_no_output { testname } {
proc gas_test_old { file as_opts testname } {
proc gas_test { file as_opts var_opts testname } {
proc gas_test_ignore_stdout { file as_opts testname } {
proc gas_test_error { file as_opts testname } {
proc gas_exit {} {}
proc gas_init { args } {
proc get_standard_section_names {} {
proc run_dump_tests { testcases {extra_options {}} } {
proc run_dump_test { name {extra_options {}} } {
proc slurp_options { file } {
proc objdump { opts } {
proc objdump_start_no_subdir { prog opts } {
proc objdump_finish { } {
proc file_contents { filename } {
proc write_file { filename contents } {
proc verbose_eval { expr { level 1 } } {
proc run_list_test { name {opts {}} {testname {}} } {
proc run_list_test_stdin { name {opts {}} {testname {}} } {

config/default.exp -> gas_init
を呼出す。gas_init は、次の中に定義してある

testsuite/lib/gas-defs.exp
proc gas_init

modena@makoto 14:01:39/140502(..binutils-2.24/gas)% file `which runtest`
/usr/pkg/bin/runtest: POSIX shell script, ASCII text executable

# Find runtest.exp. First we look in its installed location,
# otherwise start if from the source tree.

exec $expectbin $debug -- $runpath/runtest.exp $target ${1+"$@"}

modena@makoto 14:13:32/140502(..binutils-2.24/gas)% \
grep  ^proc /usr/pkg/share/dejagnu/runtest.exp 
proc verbose { args } {
proc transform { name } {
proc findfile { args } {
proc load_file { args } {
proc search_and_load_file { type filelist dirlist } {
proc usage { } {
proc lookfor_file { dir name } {
proc load_lib { file } {
proc get_local_hostname { } {
proc setup_target_hook { whole_name name } {
proc cleanup_target_hook { name } {
proc setup_host_hook { name } {
proc setup_build_hook { name } {
proc load_tool_init { file } {
proc load_generic_config { name } {
proc load_config { args } {
proc load_tool_target_config { name } {
proc load_board_description { board_name args } {
proc load_base_board_description { board_name } {
proc runtest { test_file_name } {
proc process_target_variants { target_list } {
proc iterate_target_variants { target variants } {
proc iterate_target_variants_two { orig_target target variants } {
modena@makoto 14:13:36/140502(..binutils-2.24/gas)% 

  1590  #
  1591  # main test execution loop
  1592  #
  1593
  1594  if {[info exists errorInfo]} {
  1595      unset errorInfo
  1596  }
  1597  # make sure we have only single path delimiters
  1598  regsub -all "\(\[^/\]\)//*" $srcdir "\\1/" srcdir
  1599
  1600  if {![info exists target_list]} {
  1601      # Make sure there is at least one target machine. It's probably a Unix box,
  1602      # but that's just a guess.
  1603      set target_list { "unix" }
  1604  } else {
  1605      verbose "target list is $target_list"
  1606  }
  1607
  1608  #
  1609  # Iterate through the list of targets.
  1610  #
  1611  global current_target
  1612
  1613  set target_list [process_target_variants $target_list]
  1614
  1615  set target_count [llength $target_list]
  1616
  1617  clone_output "Schedule of variations:"
  1618  foreach current_target $target_list {
  1619      clone_output "    $current_target"
  1620  }
  1621  clone_output ""
  1622
  1623
  1624  foreach current_target $target_list {
  1625      verbose "target is $current_target"

  68:set configfile  site.exp     ;# (local to this file)

635:    load_file $objdir/$configfile

modena@makoto 15:21:52/140502(..my_directory/testsuite)% \
grep -n "^\ *load_file" /usr/pkg/share/dejagnu/runtest.exp
624:load_file ~/.dejagnurc $base_dir/$configfile
635:    load_file $objdir/$configfile

ac-wrapper: /usr/bin/autom4te-2.13 is missing or not executable.
            Something is very wrong.
aclocal: autom4te failed with exit status: 1
make: *** [aclocal.m4] Error 1

ttyq7:makoto@st4200 12:56:23/060430(/export/pkgsrc)> grep autom4te  devel/*/PLIST
devel/autoconf/PLIST:bin/autom4te
devel/autoconf/PLIST:man/man1/autom4te.1
devel/autoconf/PLIST:share/autoconf/autom4te.cfg

[makoto@dell ~/local-src/tc-2.3.1]$ autom4te --version
ac-wrapper: /usr/bin/autom4te-2.13 is missing or not executable.
            Something is very wrong.

  137  autoconf-2.5x
  138  ./configure
  139  make
  140  /usr/sbin/alternatives --set automake /usr/bin/automake-1.9
  141  make

• etc の下で bushu.rev を調整

  cd etc
  mv bushu.rev bushu-old.rev
  cat symbol.rev  bushu-old.rev | sort > bushu.rev
  cd ..
  

• make
• make install
• M-x load-library tc-setup
• M-x toggle-input-method
• japanese-T-code

0 > boot ata/atapi-disk@0:0  
>> NetBSD/macppc OpenFirmware Boot, Revision 1.5
>> (root@quick.ki.nu, Wed Feb 11 19:02:27 JST 2004)
open /netbsd: Device not configured
open /netbsd.gz: Device not configured
6206584+270420=0x62d758

 We now have your BSD-disklabel partitions as:
 This is your last chance to change them.
    
    Start  MB   End  MB  Size  MB FS type    Newfs Mount Mount point
    --------- --------- --------- ---------- ----- ----- -----------
 a:         0       159       160 FFSv1            Yes   /
 b:       160       287       128 swap
 c:         0     76318     76319 Whole disk
 d:       288      1288      1000 FFSv1            Yes   /usr
 e:      1289      1388       100 FFSv1            Yes   /var
 f:      1389     76318     74929 FFSv1            Yes   /export
 g:         0         0         0 unused
 h: Show all unused partitions
 i: Change input units (sectors/cylinders/MB)
>x: Partition sizes ok

1081 KB 1.05 MB/s panic: pool_get(buf1k): free list modified: magic=0; page 0xe4d10000; item addr 0xe4d12008

Stopped in pid 80.1 (tar) at 0xa47820: addi 1,1,16
db>

     Status: Running
    Command: /sbin/newfs -O 1 -b 8192 -f 1024  /dev/rwd0e
...
/: write failed, file system is full
[1]   Illegal instruction     /sysinst
# 

include     "arch/macppc/conf/GENERIC"
options     insecure
makeoptions CC="gcc3"

{standard input}: Assembler messages:
{standard input}:51: Error: Unrecognized opcode: `lvx'

878.942u 165.161s 17:11.04 101.2% 0+0k 102+4822io 155pf+0w

NetBSD ibook 1.5ZC NetBSD 1.5ZC (GENERIC-gcc3-insecure-no-altivec) #0: Tue Apr 30 09:47:44 JST 2002 makoto@ibook:/export/syssrc-20020414/sys/arch/macppc/compile/GENERIC-gcc3-insecure-no-altivec macppc

(II) XINPUT: Adding extended input device "Mouse1" (type: MOUSE)
Shared object "libXpm.so.4" not found

  94436 Nov  3 02:42 libXpm.a
     14 Nov  3 02:42 libXpm.so@ -> libXpm.so.4.11
     14 Nov  3 02:42 libXpm.so.4@ -> libXpm.so.4.11
  71610 Nov  3 02:42 libXpm.so.4.11*

# ldd /usr/X11R6/bin/xdm
/usr/X11R6/bin/xdm:
         -lXpm.4 => /usr/X11R6/lib/libXpm.so.4

(II) FBDev: driver for framebuffer: fbdev, afb
inw(0x42e8) at line 352 in atiprobe.c
outw(0x42e8, 0x9000) at line 356 in atiprobe.c
outw(0x42e8, 0x500f) at line 358 in atiprobe.c
inw(0x92e8) at line 361 in atiprobe.c
outw(0x92e8, 0x5a5a) at line 362 in atiprobe.c
inw(0x9ae8) at line 363 in atiprobe.c
inw(0x92e8) at line 364 in atiprobe.c
outw(0x92e8, 0x0) at line 375 in atiprobe.c
outw(0x42e8, 0x0) at line 380 in atiprobe.c
ATIMach64Probe IOBase = 2ec, type 0
ATIMach64Probe IOBase = 1cc, type 0
ATIMach64Probe IOBase = 1c8, type 0
ATIMach64Probe IOBase = 400, type 1

Fatal server error:
Caught signal 11.  Server aborting

Section "Device"
    Identifier  "ATI Mach64 LN"
    Driver      "ati"
    BusID       "PCI:0:16:0"
    Option      "noaccel"
EndSection

ttyp1:makoto@quick 10:53:46/020430(/export/xc-2002-04-20)> time make World >& ../xc-2002-04-20-make-World make: don't know how to make ../../../../../../../xc/include/GL/glx.h. Stop make: stopped in /export/xc-2002-04-20/programs/Xserver/GL/mesa/include/GL ../../config/makedepend/makedepend: not found *** Error code 127

ttyp1:makoto@quick 11:45:38/020430(...config/makedepend)> make rm -f main.o gcc -c -O2 -ansi -Dasm=__asm -Wall -Wpointer-arith -I../../config/imake -I../../include -I../../exports/include/X11 -I../.. -I../../exports/include -DCSRG_BASED -DFUNCPROTO=15 -DNARROWPROTO -DPREINCDIR=\"/usr/include\" -DINCLUDEDIR=\"/usr/include\" -DOBJSUFFIX=\".o\" main.c main.c: In function `fatalerr': main.c:720: __builtin_saveregs not supported by this target main.c: In function `warning': main.c:743: __builtin_saveregs not supported by this target main.c: In function `warning1': main.c:762: __builtin_saveregs not supported by this target *** Error code 1

ttyp1:makoto@quick  12:27:37/020430(...include/powerpc)> ls -l std* var* ans*
-rw-r--r--  1 makoto  wheel  4285 Mar  6 20:02 ansi.h
-r--r--r--  1 root    wheel  4210 Apr  8 05:07 ansi.h-1.11
-rw-r--r--  1 makoto  wheel  5175 Dec 12 18:10 stdarg.h
-r--r--r--  1 root    wheel  4783 Apr  8 05:07 stdarg.h-1.8
-rw-r--r--  1 root    wheel  5175 Apr  4 12:48 stdarg.h-3.0.3
-rw-r--r--  1 makoto  wheel  2213 Mar  1 16:17 varargs.h
-r--r--r--  1 root    wheel  2102 Apr  8 05:07 varargs.h-1.6