Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.u-tokyo.ac.jp!sinetnews!wsclark!lab!utogw!ohki
From: ohki@gssm.otsuka.tsukuba.ac.jp (Atsuo Ohki)
Subject: Re: JBibTeX-0.30 under JTeX-1.52 tree?
Message-ID: <1994Aug16.060135.23854@gssm.otsuka.tsukuba.ac.jp>
Sender: news@gssm.otsuka.tsukuba.ac.jp
Organization: GSSM Otsuka, Univ. of TSUKUBA, Tokyo, Japan
References: <KITAGAWA.94Aug15135719@qed.laser.ee.es.osaka-u.ac.jp>
Date: Tue, 16 Aug 1994 06:01:35 GMT
Lines: 122
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:5152
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=5152&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

kitagawa@ee.ES.Osaka-U.AC.JP (Masahiro Kitagawa) writes:
>JBibteX 0.30 $B$r(B NTT JTeX-1.52 $B$N(B tree $B$NCf$G(B make $B$7$h$&$H$7$?$N$G$9$,!"(B
>$B0J2<$NMM$K$&$^$/9T$-$^$;$s$G$7$?!#(BHPUX $B$G$b(B BSD386 $B$G$bF1$8$G$7$?!#$I(B
>$B$J$?$+(B fix $B$5$l$?J}$,$*$i$l$^$7$?$i!"@'Hs$*65$(2<$5$$!#(B

>../ $B$K(B site.h $B$rM_$7$,$k$H$3$m$r8+$k$H!"(B1.52 $B$h$j$$$/$D$+A0$NHG$N(B JTeX
>$B$rA0Ds$K=q$+$l$F$$$kMM$J$N$G$9$,!#(B(site.h $B$NItJ,$O(B ../lib/site.h $B$KJQ(B
>$B99$7$^$7$?!#(B) 

 $B$^$:(BJBibTeX0.30$B$K$O(Bpatch1$B$,$"$k$N$O!"8fB8CN$G$9$M!#(B

 ($B#3%v7n$[$IA0$J$N$G$9$,!"$9$G$K5-21$,IT3N$+$G$9$,(B)patch1$B$r$"$F$F$b!"(B
 $B$J$*!"<c43LdBj$,$"$j!"@5$7$/(Bmake$B$7$?$D$b$j$G$b!"<B9T$9$k$H$3$1$^$9!#(B

 $B0J2<$O!";d$,%$%s%9%H!<%k$7$?$b$N$H(Bpatch1$B$rEv$F$?(BJBibTeX0.30$B$H$N(B
 context diff$B$G$9!#(B

$BBgLZFXM:!wBgDM(B.$BC^GH(B
#-------------------- cut here --------------------
diff -c bibext.c-ORIG bibext.c
*** bibext.c-ORIGThu Feb 21 21:36:40 1991
--- bibext.cTue May 31 16:39:38 1994
***************
*** 76,81 ****
--- 76,93 ----
      return(result);
  }
  
+ int eof(f)
+ FILE *f;
+ {
+     register int c;
+ 
+     if (feof(f)) return(1);
+     c = getc(f);
+     if (c != EOF)
+ (void) ungetc(c, f);
+     return (c == EOF);
+ }
+ 
  int eoln(f)
  FILE *f;
  {
***************
*** 424,430 ****
      fprintf(stderr,"\nText line contains an invalid escape sequence\n");
      exit(1);
  }
!     } else if (i < ' ') {
  buffer[last++] = i;
      } else {
  ki->kpend = i;
--- 436,442 ----
      fprintf(stderr,"\nText line contains an invalid escape sequence\n");
      exit(1);
  }
!     } else if (i < ' ' && i != EOF) {
  buffer[last++] = i;
      } else {
  ki->kpend = i;
diff -c bibtex.h-ORIG bibtex.h
*** bibtex.h-ORIGThu Feb 21 21:36:44 1991
--- bibtex.hTue May 31 18:16:50 1994
***************
*** 18,23 ****
--- 18,27 ----
  #undefSTAT
  #undefDEBUG
  
+ #ifdef JTeX
+ #define KANJI
+ #endif
+ 
  extern char *strncpy();
  
  typedef FILE *file_ptr;
***************
*** 35,41 ****
  #define readln(f){register int c; while ((c=getc(f))!='\n' && c!=EOF); }
  extern FILE *openf();
  #defineuexit(x)exit((int) (x))
! #defineeof(f)feof(f)
  
  #ifdef KANJI
  extern void PRINTSTR();
--- 39,45 ----
  #define readln(f){register int c; while ((c=getc(f))!='\n' && c!=EOF); }
  extern FILE *openf();
  #defineuexit(x)exit((int) (x))
! /* #defineeof(f)feof(f) */
  
  #ifdef KANJI
  extern void PRINTSTR();
***************
*** 47,49 ****
--- 51,58 ----
  
  extern char **gargv;
  extern int gargc;
+ 
+ /* typedefs refered by texd.h */
+ typedef char schar;
+ typedef long integer;
+ typedef long boolean;

diff -c sed.script-ORIG sed.script
*** sed.script-ORIGThu Feb 21 21:37:03 1991
--- sed.scriptTue May 31 16:27:12 1994
***************
*** 8,14 ****
  s/lab32://
  s/hack1 () ;/if(setjmp(jmp9998)==1) goto lab9998;if(setjmp(jmp32)==0)while(true)/
  s/hack2 ()/break/
! /^main_body/,$s/while ( true/while ( lab31==0/
! 
! 
! 
--- 8,11 ----
  s/lab32://
  s/hack1 () ;/if(setjmp(jmp9998)==1) goto lab9998;if(setjmp(jmp32)==0)while(true)/
  s/hack2 ()/break/
! /^void main_body/,$s/while ( true/while ( lab31==0/
