Wobei die Betonung hier auf "berücksichtigen" liegen muss - prinzipiell konnte man auch im C64er Basic längere Variablennamen benutzen¹.BlackJack hat geschrieben:@snafu: Das wäre eher `CBM BASIC`-Manier als `C64-Manier`. Es gibt auf dem und für den C64 durchaus Programmiersprachen und Compiler, die mehr als zwei signifikante Zeichen (+ Typ-Sigil) für Bezeichner berücksichtigen.
Ich hatte mir das auch relativ schnell abgewöhnt, nachdem ich das durchschaut hatteBlackJack hat geschrieben:@Hyperion: Längere Namen habe ich aber nie im Einsatz gesehen, eben wegen der Probleme Fehler zu finden und weil sie unnötig Speicherplatz und auch Rechenzeit beim Programmablauf kosten.
Vermutlich eines der wichtigsten informalen Konzepte zur Strukturierung von Programmen.Der BASIC-Boss-Compiler, ach ja. *seufz* Das war das letzte Programm das ich noch für den C=64 gekauft habe bevor ich mich dann anderen Maschinen zugewandt habe.BlackJack hat geschrieben:Wobei "nie" stimmt nicht ganz -- ich hatte damals einmal "echte" lange Bezeichner gesehen, bei einem Programm das für die Übersetzung mit dem BASIC-Boss-Compiler vorgesehen war.
) )
Krass, was aus einer so - scheinbar - einfachen Frage alles werden kannIch schließe mich da 'derdon' an. Dein Thread ist doch wieder ein tolles Beispiel dafür, wie man durch Fragen und Nachhaken ein kleines Stück von der Erfahrung und dem Wissen anderer abbekommt.pythonstarter hat geschrieben:Werde mich in Zukunft auf einfachere Fragen beschränken, ...
Wenn ich aber ein Tutorial durchgearbeitet oder mich in ein Thema eingelesen hab', sind es meistens Antworten auf meine einfachen und naiven Fragen, die vieles plötzlich klar werden lassen. )Code: Alles auswählen
Stimmt struct tagged_val {
int tag;
union {
int i;
char s[0];
...
} val;
};
typedef struct tagged_val *VALUE;Code: Alles auswählen
VALUE make_int(int i) {
VALUE v = alloc(sizeof(int) + sizeof(int));
v->tag = 1;
v->val.i = i;
return v;
}Code: Alles auswählen
VALUE make_str(char *s) {
VALUE v = alloc(sizeof(int) + sizeof(char) * (strlen(s) + 1));
v->tag = 2;
strcpy(&v->val.s, s);
return v;
}Code: Alles auswählen
int is_int(VALUE v) {
return v->tag == 1;
}
int is_str(VALUE v) {
return v->tag == 2;
}
Code: Alles auswählen
VALUE add(VALUE a, VALUE b) {
assert(is_int(a) && is_int(b));
return make_int(a->val.i + b->val.i);
}Code: Alles auswählen
typedef void *VALUE;
VALUE make_int(int i) {
return (VALUE) i << 1 + 1;
}
VALUE make_str(char *s) {
struct tagged_val *tv = alloc(sizeof(int) + sizeof(char) * (strlen(s) + 1));
tv->tag = 1;
strcpy(&tv->val.s, s);
return (VALUE) tv;
}
int is_int(VALUE v) {
return ((int) v) & 1;
}
int is_str(VALUE v) {
return !is_int(v) && ((struct tagged_val *) v)->tag == 1;
}Code: Alles auswählen
VALUE add(VALUE a, VALUE b) {
assert(is_int(a) && is_int(b));
return (VALUE) (((int) a) - 1 + ((int) b));
}