[Squeak-Commits] squeak/platforms/unix/config gnuify,1.6,1.7

[Ian P. <piu...@us...>]

Update of /cvsroot/squeak/squeak/platforms/unix/config
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24709

Modified Files:
	gnuify 
Log Message:
Remove GNU-specifics as per Lex's request.  Escape all occurences of '{' within regex for Solaris and OSF/1.


Index: gnuify
===================================================================
RCS file: /cvsroot/squeak/squeak/platforms/unix/config/gnuify,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** gnuify	3 Sep 2003 18:05:00 -0000	1.6
--- gnuify	11 Apr 2004 14:41:13 -0000	1.7
***************
*** 6,21 ****
  # Author: Ian...@IN...
  #
! # Last edited: 2003-09-03 00:06:37 by piumarta on emilia.inria.fr
  
! #   Copyright (C) 1996-2003 Ian Piumarta and other authors/contributors
! #     as listed elsewhere in this file.
  #   All rights reserved.
  #   
- #     You are NOT ALLOWED to distribute modified versions of this file
- #     under its original name.  If you want to modify it and then make
- #     your modifications available publicly, rename the file first.
- # 
  #   This file is part of Unix Squeak.
  # 
  #   This file is distributed in the hope that it will be useful, but WITHOUT
  #   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
--- 6,21 ----
  # Author: Ian...@IN...
  #
! # Last edited: Sun Apr 11 16:50:09 2004 by piumarta (Ian Piumarta) on ina
  
! #   Copyright (C) 1996-2004 by Ian Piumarta and other authors/contributors
! #                              listed elsewhere in this file.
  #   All rights reserved.
  #   
  #   This file is part of Unix Squeak.
  # 
+ #      You are NOT ALLOWED to distribute modified versions of this file
+ #      under its original name.  If you modify this file then you MUST
+ #      rename it before making your modifications available publicly.
+ # 
  #   This file is distributed in the hope that it will be useful, but WITHOUT
  #   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
***************
*** 42,49 ****
  
  BEGIN {
!   print "/* This file has been post-processed for GNU C */\n\
! \n\
! ";
!   print "copying first section of file" > "/dev/stderr";
    stage= 0;
  }
--- 42,47 ----
  
  BEGIN {
!   print "/* This file has been post-processed for GNU C */\n\n";
! # print "copying first section of file" > "/dev/stderr";
    stage= 0;
  }
***************
*** 57,70 ****
  
  /inline\: true/ {
!   print NR, $0 > "/dev/stderr";
!   print "" > "/dev/stderr";
!   print "*** interpreter was not inlined: bailing out! ***" > "/dev/stderr";
!   print "" > "/dev/stderr";
!   exit 1;
  }
  
  
  (stage == 0) && /^int interpret\(void\) \{/ {
!   print "interpret: adding static register assignments" > "/dev/stderr";
    stage= 1;
    print;
--- 55,68 ----
  
  /inline\: true/ {
! # print NR, $0 > "/dev/stderr";
! # print "" > "/dev/stderr";
! # print "*** interpreter was not inlined: bailing out! ***" > "/dev/stderr";
! # print "" > "/dev/stderr";
!   stage= -1;
  }
  
  
  (stage == 0) && /^int interpret\(void\) \{/ {
! # print "interpret: adding static register assignments" > "/dev/stderr";
    stage= 1;
    print;
***************
*** 93,106 ****
  
  (stage == 1) && /^$/ {
!   print "interpret: adding bytecode dispatch table" > "/dev/stderr";
    print "    JUMP_TABLE;\n";
!   print "interpret: rewriting case labels and outer breaks" > "/dev/stderr";
    stage= 2;
!   FS="[ 	:]+";
    next;
  }
  
  (stage == 2) && /^		case / {
!   print "		CASE(" $3 ")";
    next;
  }
--- 91,106 ----
  
  (stage == 1) && /^$/ {
! # print "interpret: adding bytecode dispatch table" > "/dev/stderr";
    print "    JUMP_TABLE;\n";
! # print "interpret: rewriting case labels and outer breaks" > "/dev/stderr";
    stage= 2;
!   FS=" ";
! # FS="[ 	:]+";
    next;
  }
  
  (stage == 2) && /^		case / {
!   print "		CASE(" (($NF) + 0) ")";
! # print "		CASE(" $3 ")";
    next;
  }
***************
*** 119,133 ****
  (stage == 3) && /^int primitiveResponse\(/ {
    print;
!   print "primitiveResponse: adding primitive dispatch table" > "/dev/stderr";
    print "    PRIM_TABLE;\n";
!   print "primitiveResponse: rewriting case labels" > "/dev/stderr";
    stage= 4;
!   FS="[ 	:]+";
    next;
  }
  
  
! (stage == 4) && /^	switch \(primitiveIndex\) {/ {
!   print "primitiveResponse: adding primitive dispatch" > "/dev/stderr";
    print "	PRIM_DISPATCH;";
    print;
--- 119,134 ----
  (stage == 3) && /^int primitiveResponse\(/ {
    print;
! # print "primitiveResponse: adding primitive dispatch table" > "/dev/stderr";
    print "    PRIM_TABLE;\n";
! # print "primitiveResponse: rewriting case labels" > "/dev/stderr";
    stage= 4;
!   FS=" ";
! # FS="[ 	:]+";
    next;
  }
  
  
! (stage == 4) && /^	switch \(primitiveIndex\) \{/ {
! # print "primitiveResponse: adding primitive dispatch" > "/dev/stderr";
    print "	PRIM_DISPATCH;";
    print;
***************
*** 135,140 ****
  }
  
! (stage == 4) && /^	switch \(foo->primitiveIndex\) {/ {
!   print "primitiveResponse: adding primitive dispatch" > "/dev/stderr";
    print "	PRIM_DISPATCH;";
    print;
--- 136,141 ----
  }
  
! (stage == 4) && /^	switch \(foo->primitiveIndex\) \{/ {
! # print "primitiveResponse: adding primitive dispatch" > "/dev/stderr";
    print "	PRIM_DISPATCH;";
    print;
***************
*** 143,152 ****
  
  (stage == 4) && /^	case / {
!   print "	CASE(" $3 ")";
    next;
  }
  
  (stage == 4) && /^\}/ {
!   print "copying last section of file" > "/dev/stderr";
    stage= 5;
    FS=" ";
--- 144,154 ----
  
  (stage == 4) && /^	case / {
!   print "	CASE(" (($NF) + 0) ")";
! # print "	CASE(" $3 ")";
    next;
  }
  
  (stage == 4) && /^\}/ {
! # print "copying last section of file" > "/dev/stderr";
    stage= 5;
    FS=" ";