home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / lib_show / external / c / src.c < prev   
Encoding:
C/C++ Source or Header  |  1998-01-16  |  690 b   |  55 lines
  1. /*
  2. -- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C) 
  3. -- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
  4. --
  5. For EXTERNAL_DEMO */
  6.  
  7. #include <stdio.h>
  8.  
  9. void integer2c(int i){
  10.   printf("%d\n",i);
  11. }
  12.  
  13. void character2c(char c){
  14.   printf("'%c'\n",c);
  15. }
  16.  
  17. void boolean2c(int b){
  18.   printf("%d\n",b);
  19. }
  20.  
  21. void real2c(float r){
  22.   printf("%f\n",r);
  23. }
  24.  
  25. void double2c(double d){
  26.   printf("%f\n",d);
  27. }
  28.  
  29. void string2c(char *s){
  30.   printf("%s",s);
  31. }
  32.  
  33. void any2c(void *a){
  34.   if (a == NULL) {
  35.     printf("NULL\n");
  36.   }
  37.   else {
  38.     printf("not NULL\n");
  39.   }
  40. }
  41.  
  42. void current2c(void *a){
  43.   any2c(a);
  44. }
  45.  
  46. int integer2eiffel(void){
  47.   return -6;
  48. }
  49.  
  50. char character2eiffel(void){
  51.   return '\n';
  52. }
  53.  
  54.  
  55.