res/ok_sample.tpc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

/**
  * UPEM / Compilation / Projet TPC
  * Exemple de fichier source TPC valide
  * Pacien TRAN-GIRARD, Adam NAILI
  */

const special = 'b';

caractere funky_func(entier arg) {
  return !arg;
}

void main(void) {
  caractere ret;
  ret = 1 + funky_func(0) * 2;

  while (ret) {
    readc(ret);
    print(ret);

    if (ret == special) print('!');
  }
}