home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 02 / extra / coprocde.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-11-28  |  3.8 KB  |  179 lines
  1. /*********************************************************/
  2. /*                     COPROCDE.C                        */
  3. /*            Demoprogramm für Coroutinen in C           */
  4. /*          (C) 1988 by Roland Mosler & TOOLBOX          */
  5. /*********************************************************/
  6.  
  7. #include <stdio.h>
  8. #include <coproces.h>
  9.  
  10. #define TRUE  1
  11. #define FALSE 0
  12.  
  13. #define BufferSize 1024    /* Buffergröße in BYTE */
  14.  
  15. #ifdef NO_ATARI
  16. #define Cnecin() getc()
  17. #else
  18. #define Cnecin() gemdos(0x8)   /* Holt ein Zeichen
  19.                                   ohne Echo und Return  */
  20. #endif
  21.  
  22. static PROCESS MAIN,proc1,proc2,proc3,err ;
  23.  
  24. char    Proc1Sp[BufferSize],
  25.         Proc2Sp[BufferSize],
  26.         Proc3Sp[BufferSize],
  27.         errorSp[BufferSize],
  28.         cc,*errMessage ;
  29.  
  30. unsigned int  i ;
  31. int           NewInstall ;
  32.  
  33.  
  34. void ClearScreen()
  35. {
  36.   putchar( 27 ) ;
  37.   putchar( 'E' ) ;
  38. } /* ClearScreen */
  39.  
  40. void Zaehler()
  41. {
  42.   printf( " Global: %3d ",++i ) ;
  43. } /* Zaehler */
  44.  
  45. void Message( Proz,Break )
  46.   unsigned int Proz ;
  47.   char         Break ;
  48. {
  49.   printf( "\nRoutine %1d Testpunkt ",Proz ) ;
  50.   putchar( Break ) ;
  51.   Zaehler() ;
  52. } /* Message */
  53.  
  54. void Menue()
  55. {
  56.   char hlp ;
  57.  
  58.   printf( "\n\n\
  59. \
  60.   Tastatur während des Programmablaufs\n\
  61.   1             -> Wechsel nach Routine 1\n\
  62.   2             -> Wechsel nach Routine 2\n\
  63.   3             -> Wechsel nach Routine 3\n\
  64.   H             -> Hilfsmenü\n\
  65.   E             -> Ende des Programmes\n%s","\
  66.   Keine Taste   -> Pause\n\
  67.   Übrige Tasten -> Programmablauf\n\n\
  68.   Programmstart mit jeder Taste" ) ;
  69.  
  70.   hlp = Cnecin() ;
  71. } /* Menue */
  72.  
  73. void ChangeRoutine( proc )
  74.   PROCESS *proc ;
  75. {
  76.   char hlp ;
  77.  
  78.   hlp = Cnecin() ;
  79.   switch( hlp ) 
  80.   {
  81.     case '1'   : transfer( proc,&proc1 ) ; break ;
  82.     case '2'   : transfer( proc,&proc2 ) ; break ;
  83.     case '3'   : transfer( proc,&proc3 ) ; break ;
  84.     case 'e'   :
  85.     case 'E'   : transfer( proc,&MAIN  ) ; break ;
  86.     case 'h'   :
  87.     case 'H'   : Menue() ;
  88.     default    : ;
  89.   } ;
  90. } /* ChangeRoutine */
  91.  
  92. void error()
  93. { 
  94.   for(;;)
  95.   {
  96.     printf( "\n%s",errMessage ) ;
  97.     NewInstall = TRUE ;
  98.     transfer( &err,&MAIN ) ;
  99.   } ;
  100. } /* error */
  101.  
  102. void Routine1()
  103. {
  104.   double a,b,c ;
  105.  
  106.   a = 1.2  ;
  107.   b = 10.0 ;
  108.   for(;;)
  109.   {
  110.     Message( 1,'A' ) ;
  111.     c = a + b ;
  112.     printf( "Addition %6.3lf",c ) ;
  113.     ChangeRoutine( &proc1 ) ;
  114.     Message( 1,'B' ) ;
  115.     c = b * a ;
  116.     printf( "Multiplikation %6.3lf",c ) ;
  117.     ChangeRoutine( &proc1 ) ;
  118.     Message( 1,'C' ) ;
  119.     if( c == 0.0 )
  120.     {
  121.       errMessage = "Division durch 0 in Routine 1" ;
  122.       error() ;
  123.     } ;
  124.     c = a / b ;
  125.     printf( "Division %6.3lf",c ) ;
  126.     ChangeRoutine( &proc1 ) ;
  127.     a = c + 2.3 ;
  128.     b = b - 0.5 ;
  129.   } ;
  130. } /* Routine1 */
  131.  
  132. void Routine2()
  133. {
  134.   for(;;)
  135.   {
  136.     Message( 2,'X' ) ;
  137.     printf( "Tick" ) ;
  138.     ChangeRoutine( &proc2 ) ;
  139.     Message( 2,'Y' ) ;
  140.     printf( "Tack" ) ;
  141.     ChangeRoutine( &proc2 ) ;
  142.   } ;
  143. } /* Routine2 */
  144.  
  145. void Routine3()
  146. {
  147.   char ch,ch1 ;
  148.  
  149.   for( ch='A'; ch<='Z'; ch++ )
  150.   {
  151.     Message( 3,'N' ) ;
  152.     printf( "Buchstabenreihe : " ) ;
  153.     for(  ch1='A'; ch1<=ch; putchar( ch1++ ) ) ;
  154.     ChangeRoutine( &proc3 ) ;
  155.   } ;
  156.   errMessage = "Routinenende in Routine 3 erreicht" ;
  157.   error() ;
  158. } /* Routine3 */
  159.  
  160.  
  161. void main()
  162. {
  163.   ClearScreen() ;
  164.   printf( "\n Demoprogramm für Coroutinen\n\n" ) ;
  165.   i = 0 ;
  166.   do
  167.   {
  168.     NewInstall = FALSE ;
  169.     Menue() ;
  170.     newproc( &error   ,errorSp,BufferSize,&err   ) ;
  171.     newproc( &Routine1,Proc1Sp,BufferSize,&proc1 ) ;
  172.     newproc( &Routine2,Proc2Sp,BufferSize,&proc2 ) ;
  173.     newproc( &Routine3,Proc3Sp,BufferSize,&proc3 ) ;
  174.     transfer( &MAIN,&proc1 ) ;
  175.   } while( NewInstall ) ;
  176.   printf( "\n   Ende des Programmes 'Routinen'" ) ;
  177.   Cnecin() ;
  178. } /* Routinen */
  179.