fork download
copy 
  1. %{
  2. #include <stdio.h>
  3. #include <ctype.h>
  4. #include <string.h>
  5. #include <stdbool.h>
  6.  
  7. #define MAX_TOKEN_LENGTH 100
  8.  
  9. // Token types
  10. typedef enum {
  11.     MOT_CLE,
  12.     INT,
  13.     FLOAT,
  14.     IDENTIFICATEUR,
  15.     OPERATEUR,
  16.     SEPARATEUR,
  17.     CHAINE_CARACTERE,
  18.     ERROR
  19. } TokenType;
  20.  
  21. // Keywords list
  22. const char* keywords[] = {"si", "sino", "is", "tq", "qt", "rpt", "jsq", "lre", "ecr", "vrai", "faux"};
  23. int num_keywords = sizeof(keywords) / sizeof(keywords[0]);
  24.  
  25. // Check if a token is a keyword
  26. bool is_keyword(const char* token) {
  27.     for (int i = 0; i < num_keywords; i++) {
  28.         if (strcasecmp(token, keywords[i]) == 0) {
  29.             return true;
  30.         }
  31.     }
  32.     return false;
  33. }
  34.  
  35. // Write token to output file
  36. void process_token(TokenType type, int line_number, const char* token) {
  37.     switch (type) {
  38.         case MOT_CLE:
  39.             fprintf(yyout, "Mot_Cle %d %s\n", line_number, token);
  40.             break;
  41.         case INT:
  42.             fprintf(yyout, "Int %d %s\n", line_number, token);
  43.             break;
  44.         case FLOAT:
  45.             fprintf(yyout, "Float %d %s\n", line_number, token);
  46.             break;
  47.         case IDENTIFICATEUR:
  48.             fprintf(yyout, "Identificateur %d %s\n", line_number, token);
  49.             break;
  50.         case OPERATEUR:
  51.             fprintf(yyout, "Operateur %d %s\n", line_number, token);
  52.             break;
  53.         case SEPARATEUR:
  54.             fprintf(yyout, "Separateur %d %s\n", line_number, token);
  55.             break;
  56.         case CHAINE_CARACTERE:
  57.             fprintf(yyout, "Chaine_Caracteres %d %s\n", line_number, token);
  58.             break;
  59.         case ERROR:
  60.             fprintf(yyout, "ERROR %d %s\n", line_number, token);
  61.             break;
  62.     }
  63. }
  64.  
  65. int line_number = 1;
  66. %}
  67.  
  68. %%
  69.  
  70. "//".*          { /* Skip single-line comments */
  71.                   // Do nothing
  72.                 }
  73.  
  74. "/*"            { fprintf(yyout, "ERROR %d Début de commentaire multiligne\n", line_number);
  75.                   bool in_multiline_comment = true;
  76.                   while (in_multiline_comment) {
  77.                       int token = yylex();
  78.                       if (token == 0) {
  79.                           fprintf(yyout, "ERROR %d Fin de fichier dans un commentaire\n", line_number);
  80.                           return;
  81.                       }
  82.                       if (yytext[0] == '*' && yytext[1] == '/') {
  83.                           in_multiline_comment = false;
  84.                           fprintf(yyout, "ERROR %d Fin de commentaire multiligne\n", line_number);
  85.                       }
  86.                   }
  87.                 }
  88.  
  89. "\""[^"\\]*(\\.[^"\\]*)*"\" { /* Handle string literals */
  90.                                   yytext[yyleng - 1] = '\0'; // Remove trailing quote
  91.                                   process_token(CHAINE_CARACTERE, line_number, yytext + 1); // Skip leading quote
  92.                               }
  93.  
  94. [0-9]+(\.[0-9]+)?([eE][+-]?[0-9]+)? { /* Handle integers and floats */
  95.                                         process_token(FLOAT, line_number, yytext);
  96.                                     }
  97.  
  98. [a-zA-Z][a-zA-Z0-9]* { /* Handle identifiers and keywords */
  99.                         if (is_keyword(yytext)) {
  100.                             process_token(MOT_CLE, line_number, yytext);
  101.                         } else {
  102.                             process_token(IDENTIFICATEUR, line_number, yytext);
  103.                         }
  104.                     }
  105.  
  106. [+\-*/=<>!&|:]   { /* Handle operators */
  107.                         if (strcmp(yytext, "+") == 0 || strcmp(yytext, "-") == 0 ||
  108.                             strcmp(yytext, "*") == 0 || strcmp(yytext, "/") == 0 ||
  109.                             strcmp(yytext, "=") == 0 || strcmp(yytext, "<") == 0 ||
  110.                             strcmp(yytext, ">") == 0 || strcmp(yytext, "!") == 0 ||
  111.                             strcmp(yytext, "&") == 0 || strcmp(yytext, "|") == 0 ||
  112.                             strcmp(yytext, ":") == 0) {
  113.                             process_token(OPERATEUR, line_number, yytext);
  114.                         } else if (strcmp(yytext, "==") == 0 || strcmp(yytext, "!=") == 0 ||
  115.                                    strcmp(yytext, "<=") == 0 || strcmp(yytext, ">=") == 0 ||
  116.                                    strcmp(yytext, "&&") == 0 || strcmp(yytext, "||") == 0) {
  117.                             process_token(OPERATEUR, line_number, yytext);
  118.                         }
  119.                     }
  120.  
  121. [;,()]            { /* Handle separators */
  122.                         process_token(SEPARATEUR, line_number, yytext);
  123.                     }
  124.  
  125. [ \t\r]+          { /* Skip whitespace */
  126.                       // Do nothing
  127.                     }
  128.  
  129. \n                { /* Increment line number */
  130.                       line_number++;
  131.                     }
  132.  
  133. .                 { /* Handle invalid characters */
  134.                       process_token(ERROR, line_number, yytext);
  135.                     }
  136.  
  137. %%
  138.  
  139. int main(int argc, char** argv) {
  140.     if (argc > 1) {
  141.         yyin = fopen(argv[1], "r");
  142.         if (!yyin) {
  143.             perror("Error opening input file");
  144.             return 1;
  145.         }
  146.     }
  147.  
  148.     yyout = fopen("output.txt", "w");
  149.     if (!yyout) {
  150.         perror("Error opening output file");
  151.         if (yyin) fclose(yyin);
  152.         return 1;
  153.     }
  154.  
  155.     yylex();
  156.  
  157.     if (yyin) fclose(yyin);
  158.     if (yyout) fclose(yyout);
  159.  
  160.     return 0;
  161. }
Success #stdin #stdout #stderr 0.03s 6852KB
comments (?)
stdin
copy 
int x = 10;


float y = 3.14; // Initialisation de y
char str[] = "Ceci est une chaîne de caractères avec un saut de ligne \n et un tabulation \t";

/* Ceci est un
   commentaire multiligne */
stdout
copy 
Standard output is empty
stderr
copy 
ERROR: /home/xy8H8b/prog:161:0: Syntax error: end_of_file_in_quasi_quotation
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: Can't ignore goal at this port
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? [Illegal port specification]
   Exception: (3) program ? EOF: exit
https://ideone.com/5hbYlc
language:
Prolog (swi 7.6.4)
created:
8 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!