File: c_glue1.c

package info (click to toggle)
smarteiffel 1.1-11
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 12,288 kB
  • ctags: 40,785
  • sloc: ansic: 35,791; lisp: 4,036; sh: 1,783; java: 895; ruby: 613; python: 209; makefile: 115; csh: 78; cpp: 50
file content (54 lines) | stat: -rw-r--r-- 669 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
/* Hand-written C code to be used with example1.e */

#include <stdio.h>

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(float r){
  printf("%f\n",r);
}

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

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

void any2c(void *a){
  if (a == NULL) {
    printf("NULL\n");
  }
  else {
    printf("not NULL\n");
  }
}

int c_int2eiffel(void){
  return -6;
}

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


void set_integer_attribute(int*attribute){
  *attribute=2;
}

int hello(void) {
  printf("Hello");
  return 1;
}