Comment simuler une table de symboles en Common Lisp

Question

J'apprends le LISP commun en ce moment et j'ai rencontré un énorme barrage routier. J'ai eu une mission que nous devions apprendre à créer un analyseur dans Common LISP. J'ai réussi à tout mettre en œuvre des règles de grammaire à la lexer avec beaucoup d'aide de différentes sources en ligne. Je ne peux d'autre part sembler comprendre comment implémenter une table de symboles.

C'est ce que j'ai jusqu'ici en ce qui concerne la table de symboles.

(defun symtab-add (state id) 
;; *** add symbols to symbol table *** 
) 

(defun symtab-member (state id) 
;; *** look up symbols in symbol table *** 
) 

(defun symtab-display (state) 
    (format t "------------------------------------------------------~%") 
    (format t "Symbol Table is: ~S ~%" (pstate-symtab state)) 
    (format t "------------------------------------------------------~%") 
) 

Comme vous pouvez le voir ive seulement réussi avec la partie d'affichage, si quelqu'un pouvait me lier un tutoriel ou me donner un exemple de code ou tout simplement me aider avec ce que je serais super reconnaissant.

Tout le code source pour mon affectation: http://www.cs.kau.se/cs/education/courses/dvgc01/LISP/newstart.lsp

Answer 1

D'abord, vous devez créer la table des symboles, disent:

(setq my-symbol-table nil) 

Pour simplifier, nous ignorerons les paquets; vous pouvez en apprendre plus à ce sujet plus tard.

Ensuite, vous devez décider comment vous allez stocker les symboles dans la table. Encore une fois, en restant simple, vous pouvez les stocker comme une liste d'association, avec des paires de nom de symbole et de valeur de symbole. Par exemple, si vous stockez les symboles a et b avec les valeurs 3 et 5, vous auriez la table de symbole suivant:

> my-symbol-table 

> ((a . 3) (b . 5)) 

Pour utiliser cette liste d'association, vous pouvez utiliser les fonctions assoc, pousser, rplacd.

Exemple:

• Ajouter un nouveau symbole

  (push « (c 0) mon symbole table.)

• Rechercher un symbole:

  (assoc 'c my-symbol-table)

• Changer la valeur d'un sy existant mbol:

  (rplacd (assoc « c mon symbole table) 18)

J'espère que cela est suffisant pour vous aller.

Answer 2

Il existe plusieurs façons d'implémenter une table de symboles, avec des niveaux variables de «convenables» en fonction de vos besoins exacts. À la fin de la journée, une table de symboles est, en fait, juste une correspondance de "nom de symbole" à quelque chose.

Donc toute structure de données qui vous permet d'ajouter des choses à la fois et de regarder les choses devrait fonctionner. Les implémentations assez courantes seraient "utiliser une table de hachage" ou "utiliser une alist" (cette dernière est essentiellement une liste de paires sur le formulaire (<symbol> . <data>)).