ftp.nice.ch/pub/next/developer/languages/eiffel/SmallEiffel.0.91.N.bs.tar.gz#/SmallEiffel/lib_show/external/src.c

This is src.c in view mode; [Download] [Up]

/*
-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C) 
-- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
--
For EXTERNAL_DEMO */

void integer2c(int i){
  printf("%d\n",i);
}

void character2c(char c){
  printf("'%c'\n",c);
}

void boolean2c(int b){
  printf("%d\n",b);
}

void real2c(double r){
  printf("%f\n",r);
}

void double2c(double d){
  printf("%f\n",d);
}

void string2c(char *s){
  printf("%s",s);
}

void any2c(void *a){
  printf("%p\n",a);
}

void current2c(void *a){
  printf("%p\n",a);
}

int integer2eiffel(void){
  return -6;
}

char character2eiffel(void){
  return '\n';
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.