Added solution to second homework homework2

1 files changed, 108 insertions, 0 deletions

diff --git a/homework/0MI0800028/Homework 02/commonlisp2html.y b/homework/0MI0800028/Homework 02/commonlisp2html.y
new file mode 100644
index 0000000..008bedb
--- /dev/null
+++ b/homework/0MI0800028/Homework 02/commonlisp2html.y
@@ -0,0 +1,108 @@
+%{
+#include <stdio.h>
+#include <string.h>
+
+int yylex();
+int yyerror(char *s);
+
+#define LBRACKET_SPAN "<span class=\"bracket\">(</span>"
+#define RBRACKET_SPAN "<span class=\"bracket\">)</span>"
+
+char* span(char *c, char *s);
+char* details(char *summary, char *rest);
+char* concat2(char *first, char *second);
+char* concatperm2(char *first, char *second);
+char* concatperm3(char *first, char *second, char *third);
+%}
+
+%token LBRACKET RBRACKET OTHER 
+%token NEWLINE SPACE TAB
+%token STR NUM COMMENT PARAMETER_TYPE KEYWORD CONSTANT
+%token SPECIAL_FORM FUNCTION MACRO VARIABLE
+
+%define api.value.type {char*}
+
+%%
+
+start:
+	 | start stlist   { printf("%s", $2); free($2); }
+	 | start terminal { printf("%s", $2); free($2); }
+	 | start NEWLINE  { printf("\n"); }
+
+stlist: LBRACKET RBRACKET                       { $$ = concat2(LBRACKET_SPAN, RBRACKET_SPAN); } 
+	  | LBRACKET list RBRACKET                  { $$ = concatperm3(LBRACKET_SPAN, $2, RBRACKET_SPAN); }
+	  | LBRACKET NEWLINE list RBRACKET          { $$ = details(concat2(LBRACKET_SPAN, ""), $3); }
+	  | LBRACKET list NEWLINE postlist RBRACKET { $$ = details($2, $4); }
+	  ;
+
+postlist:                   { $$ = ""; }
+		| postlist stlist   { $$ = concat2($1, $2); free($2); }
+		| postlist terminal { $$ = concat2($1, $2); free($2); }
+		| postlist NEWLINE  { $$ = concat2($1, "\n"); }
+		;
+
+list: terminal
+	| list terminal { $$ = concatperm2($1, $2); }
+	| stlist
+	| list stlist   { $$ = concatperm2($1, $2); }
+	;
+
+terminal: STR            { $$ = span("string", $1); }
+		| NUM            { $$ = span("number", $1); }
+		| COMMENT        { $$ = span("comment", $1); }
+		| PARAMETER_TYPE { $$ = span("parameter-type", $1); }
+		| KEYWORD        { $$ = span("keyword", $1); }
+		| CONSTANT       { $$ = span("constant", $1); }
+		| SPECIAL_FORM   { $$ = span("special-operator", $1); }
+		| FUNCTION       { $$ = span("function", $1); }
+		| MACRO          { $$ = span("macro", $1); }
+		| VARIABLE       { $$ = span("variable", $1); }
+		| OTHER          { $$ = span("", $1); }
+		;
+
+%%
+
+
+char* span(char *c, char *s) {
+	char* str = (char*)malloc(strlen(c) + strlen(s) + 1 + 22);
+	sprintf(str, "<span class=\"%s\">%s</span>", c, s);
+	free(s);
+	return str;
+}
+char* details(char *summary, char *rest) {
+	if (*rest == '\0') rest = concat2("", ""); // Зверски грозен фикс, но не е толкова голям проблем
+
+	char* str = (char*)malloc(strlen(LBRACKET_SPAN) + strlen(summary) + strlen(rest) + strlen(RBRACKET_SPAN) + 1 + 39);
+	sprintf(str, "<details><summary>%s%s</summary>\n%s%s</details>", LBRACKET_SPAN, summary, rest, RBRACKET_SPAN);
+
+	free(summary); free(rest);
+	return str;
+}
+
+char* concat2(char* first, char* second) {
+	char* concat = (char*)malloc(strlen(first) + strlen(second) + 1);
+	sprintf(concat, "%s%s", first, second);
+	return concat;
+}
+char* concatperm2(char *first, char *second) {
+	char* concat = concat2(first, second);
+	free(first); free(second);
+	return concat;
+}
+
+char* concatperm3(char *first, char *second, char *third) {
+	char* concat = (char*)malloc(strlen(first) + strlen(second) + strlen(third) + 1);
+	sprintf(concat, "%s%s%s", first, second, third);
+	free(second);
+	return concat;
+}
+
+
+int yyerror(char *s) {
+	printf("Error: %s\n", s);
+	return 0;
+}
+
+int main(int argc, char **argv) {
+	yyparse();
+}