azlib.pat

this is RealTimeOS(uITRON) for hitachi H8 processor.

!  				if ( _pri(func, p_flg, inte, deci, estr, seisu,
  				    x, last, i, pres, flag) )
--- 971,973 ----
  				/* 弌椡 */
!  				if ( _pri(func, param, p_flg, inte, deci, estr, seisu,
  				    x, last, i, pres, flag) )
***************
*** 979,981 ****
  		/* 弌椡 */
! 		if ( _pri(func, p_flg, inte, deci, estr, seisu,
  		    x, last, i, pres, flag) )
--- 979,981 ----
  		/* 弌椡 */
! 		if ( _pri(func, param, p_flg, inte, deci, estr, seisu,
  		    x, last, i, pres, flag) )
***************
*** 1050,1052 ****
   *****************************************************************************/
! int _pri( int (*func)(int), char p_flg, char *inte, char *deci,
  	char *estr,int seisu, int x, int last, int i,  int pres, u_int flag)
--- 1050,1052 ----
   *****************************************************************************/
! int _pri( int (*func)(int, long), long param, char p_flg, char *inte, char *deci,
  	char *estr,int seisu, int x, int last, int i,  int pres, u_int flag)
***************
*** 1056,1058 ****
  		for (; seisu >= 0; seisu--) {
! 			if ( ( *func )( (int)inte[seisu] ) == EOF )
  				return  1;
--- 1056,1058 ----
  		for (; seisu >= 0; seisu--) {
! 			if ( ( *func )( (int)inte[seisu], param ) == EOF )
  				return  1;
***************
*** 1060,1064 ****
  	} else if ( CHK_KETA ) {
! 		if ( ( *func )( '1' ) == EOF )
  			return  1;
! 	} else if ( ( *func )( '0' ) == EOF )
  		return  1;
--- 1060,1064 ----
  	} else if ( CHK_KETA ) {
! 		if ( ( *func )( '1', param ) == EOF )
  			return  1;
! 	} else if ( ( *func )( '0', param ) == EOF )
  		return  1;
***************
*** 1070,1072 ****
  	}else if ( pres>0 || (pres<=0 && CHK_SHRP) ) {
! 		if ( ( *func )( '.' ) == EOF )
  			return  1;
--- 1070,1072 ----
  	}else if ( pres>0 || (pres<=0 && CHK_SHRP) ) {
! 		if ( ( *func )( '.', param ) == EOF )
  			return  1;
***************
*** 1077,1079 ****
  		for (x = pres-1; x >= last; x--) {
! 			if ( ( *func )( (int)deci[x] ) == EOF )
  				return  1;
--- 1077,1079 ----
  		for (x = pres-1; x >= last; x--) {
! 			if ( ( *func )( (int)deci[x], param ) == EOF )
  				return  1;
***************
*** 1083,1085 ****
  		for ( ; i<=EMAX ; i++ ) {
! 			if ( (*func)( (int)(estr[i]) ) == EOF )
  				return 1;
--- 1083,1085 ----
  		for ( ; i<=EMAX ; i++ ) {
! 			if ( (*func)( (int)(estr[i]), param ) == EOF )
  				return 1;
*** src30/azlib/printf.c	1999/07/07 08:44:29	1.1
--- src30/azlib/printf.c	1999/08/24 07:14:51
***************
*** 8,10 ****
  *
! *  $Id: printf.c 1.1 1999/07/07 08:44:29 monnai Exp $
  *
--- 8,10 ----
  *
! *  $Id: printf.c 1.2 1999/07/07 10:44:24 monnai Exp $
  *
***************
*** 42,44 ****
  #include <stdio.h>
! static int _pc( int );
  
--- 42,44 ----
  #include <stdio.h>
! static int _pc( int, long );
  
***************
*** 64,66 ****
  				total++;
! 			} else if(!(format = _print(_pc, format, &arg, &total)))
  				return EOF;
--- 64,66 ----
  				total++;
! 			} else if(!(format = _print(_pc, 0L, format, &arg, &total)))
  				return EOF;
***************
*** 76,78 ****
  
! static int _pc( int c )
  {
--- 76,78 ----
  
! static int _pc( int c, long param )
  {
*** src30/azlib/sprintf.c	1999/07/07 09:02:26	1.1
--- src30/azlib/sprintf.c	1999/08/24 07:15:35
***************
*** 8,10 ****
  *
! *  $Id: sprintf.c 1.1 1999/07/07 09:02:26 monnai Exp $
  *
--- 8,10 ----
  *
! *  $Id: sprintf.c 1.3 1999/08/24 07:14:51 monnai Exp $
  *
***************
*** 43,46 ****
  #include <stdio.h>
! static int _sp( int );
! static char _far *pointer;	/* 奿擺愭偺億僀儞僞傪奿擺 */
  
--- 43,45 ----
  #include <stdio.h>
! static int _sp( int, long );
  
***************
*** 52,54 ****
  
- 	pointer = ptr;	/* 奿擺愭偺億僀儞僞傪僙僢僩 */
  	total = 0;	/* 弌椡暥帤悢傪僋儕傾 */
--- 51,52 ----
***************
*** 63,65 ****
  			if ( *format == '%' ) {
! 				*pointer++ = '%';
  				format++;
--- 61,63 ----
  			if ( *format == '%' ) {
! 				*ptr++ = '%';
  				format++;
***************
*** 67,71 ****
  			} else
! 				format = _print(_sp, format, &arg, &total);
  		} else {
! 			*pointer++ = *format++;
  			total++;
--- 65,69 ----
  			} else
! 				format = _print(_sp, (long) &ptr, format, &arg, &total);
  		} else {
! 			*ptr++ = *format++;
  			total++;
***************
*** 73,75 ****
  	}
! 	*pointer = '\0';
  	return total;
--- 71,73 ----
  	}
! 	*ptr = '\0';
  	return total;
***************
*** 77,81 ****
  
! static int _sp( int c )
  {
! 	*pointer++ = c;
  	return 1;
--- 75,80 ----
  
! static int _sp( int c, long param )
  {
! 	**((char _far * _far *) param) = c;
! 	*((char _far * _far *) param) += 1;
  	return 1;
*** src30/azlib/vfprintf.c	1999/07/07 08:40:25	1.1
--- src30/azlib/vfprintf.c	1999/08/24 07:14:54
***************
*** 9,11 ****
   *  all Rights Reserved.
!  *  $Id: vfprintf.c 1.1 1999/07/07 08:40:25 monnai Exp $
   *
--- 9,11 ----
   *  all Rights Reserved.
!  *  $Id: vfprintf.c 1.2 1999/07/07 10:44:24 monnai Exp $
   *
***************
*** 30,33 ****
  #include <stdio.h>
! static int _fp( int );
! static FILE _far *bf;
  
--- 30,32 ----
  #include <stdio.h>
! static int _fp( int, long );
  
***************
*** 53,55 ****
  
- 	bf = stream;	/* 弌椡愭偺僗僩儕乕儉傪僙僢僩 */
  	total = 0;	/* 弌椡暥帤悢傪僋儕傾 */
--- 52,53 ----
***************
*** 64,66 ****
  				total++;
! 			} else if(!(format = _print(_fp, format, (int **)&ap, &total)))
  				return EOF;
--- 62,64 ----
  				total++;
! 			} else if(!(format = _print(_fp, (long) stream, format, (int **)&ap, &total)))
  				return EOF;
***************
*** 76,80 ****
  
! static int _fp( int c )
  {
! 	return fputc( c, bf );
  }
--- 74,78 ----
  
! static int _fp( int c, long param )
  {
! 	return fputc( c, (FILE _far *) param );
  }
*** src30/azlib/vprintf.c	1999/07/07 08:57:35	1.1
--- src30/azlib/vprintf.c	1999/08/24 07:14:54
***************
*** 9,11 ****
   *  all Rights Reserved.
!  *  $Id: vprintf.c 1.1 1999/07/07 08:57:35 monnai Exp $
   *
--- 9,11 ----
   *  all Rights Reserved.
!  *  $Id: vprintf.c 1.2 1999/07/07 10:44:24 monnai Exp $
   *
***************
*** 30,32 ****
  #include <stdio.h>
! static int _pc( int );
  
--- 30,32 ----
  #include <stdio.h>
! static int _pc( int, long );
  
***************
*** 61,63 ****
  				total++;
! 			} else if(!(format = _print(_pc, format, (int **)&ap, &total)))
  				return EOF;
--- 61,63 ----
  				total++;
! 			} else if(!(format = _print(_pc, 0L, format, (int **)&ap, &total)))
  				return EOF;
***************
*** 73,75 ****
  
! static int _pc( int c )
  {
--- 73,75 ----
  
! static int _pc( int c, long param )
  {
*** src30/azlib/vsprintf.c	1999/07/07 08:47:48	1.1
--- src30/azlib/vsprintf.c	1999/08/24 07:14:54
***************
*** 9,11 ****
   *  all Rights Reserved.
!  *  $Id: vsprintf.c 1.1 1999/07/07 08:47:48 monnai Exp $
   *
--- 9,11 ----
   *  all Rights Reserved.
!  *  $Id: vsprintf.c 1.2 1999/07/07 10:44:24 monnai Exp $
   *
***************
*** 30,33 ****
  #include <stdio.h>
! static int _sp( int );
! static char _far *pointer;	/* 奿擺愭偺億僀儞僞傪奿擺 */
  
--- 30,32 ----
  #include <stdio.h>
! static int _sp( int, long );
  
***************
*** 53,55 ****
  
- 	pointer = ptr;	/* 奿擺愭偺億僀儞僞傪僙僢僩 */
  	total = 0;	/* 弌椡暥帤悢傪僋儕傾 */
--- 52,53 ----
***************
*** 60,62 ****
  			if ( *format == '%' ) {
! 				*pointer++ = '%';
  				format++;
--- 58,60 ----
  			if ( *format == '%' ) {
! 				*ptr++ = '%';
  				format++;
***************
*** 64,68 ****
  			} else
! 				format = _print(_sp, format, (int **)&ap, &total);
  		} else {
! 			*pointer++ = *format++;
  			total++;
--- 62,66 ----
  			} else
! 				format = _print(_sp, (long) &ptr, format, (int **)&ap, &total);
  		} else {
! 			*ptr++ = *format++;
  			total++;
***************
*** 70,72 ****
  	}
! 	*pointer = '\0';
  	return total;
--- 68,70 ----
  	}
! 	*ptr = '\0';
  	return total;
***************
*** 74,78 ****
  
! static int _sp( int c )
  {
! 	*pointer++ = c;
  	return 1;
--- 72,77 ----
  
! static int _sp( int c, long param )
  {
! 	**((char _far * _far *) param) = c;
! 	*((char _far * _far *) param) += 1;
  	return 1;