nand2tetris HDL parser using Instaparse

nand2tetris-hdl-parse.clj

(ns stuff
  (:require [instaparse.core :as insta]))

(def hdl-parse
  (insta/parser
   "CHIP = <'CHIP'> <SPACE+> NAME <SPACE*> <'{'> <SPACE*> INSPEC <SPACE*> OUTSPEC <SPACE*> PARTS <SPACE*> <'}'>
   INSPEC = <'IN'> <SPACE+> (SPECITEM <SPACE*> <','?> <SPACE*>)* <';'>
   OUTSPEC = <'OUT'> <SPACE+> (SPECITEM <SPACE*> <','?> <SPACE*>)* <';'>
   PARTS = <'PARTS:'> <SPACE*> (PART <SPACE*>)*
   PART = NAME <'('> (<SPACE*> PARTIO <','>?)+ <');'>
   PARTIO = NAME <SPACE*> <'='> <SPACE*> NAME PINWIDTH?
   PINWIDTH = <'['> NUMBER <']'>
   SPECITEM = NAME PINWIDTH?
   NAME = #'[a-zA-Z][a-zA-Z0-9]*'
   COMMENT = '//' #'[^\n]*' '\n'
   SPACE = ' '|'\t'|'\n'|'\r'
   <NUMBER> = '-'? ('0'|'1'|'2'|'3'|'4'|'5'|'6'|'7'|'8'|'9')+"))


(def input0
  "CHIP ALU {
  IN x[16], y[16], zx, nx, zy, ny, f, no;
  OUT out[16], zr, ng;
  PARTS:
  Zero16(in = zx, out = zeros);
  Mux16(a = x, b = zeros, sel = zx, out = selectedx);
  Not16(in = selectedx, out = notselectedx);
  Mux16(a = selectedx, b = notselectedx, sel = nx, out = realx);
  }")

(def input1 "CHIP And16 {
  IN a[16], b[16];
  OUT out[16];
  
  PARTS:
  And(a = a[0], b = b[0], out = out[0]);
  And(a = a[1], b = b[1], out = out[1]);
  And(a = a[2], b = b[2], out = out[2]);
  And(a = a[3], b = b[3], out = out[3]);
  And(a = a[4], b = b[4], out = out[4]);
  And(a = a[5], b = b[5], out = out[5]);
  And(a = a[6], b = b[6], out = out[6]);
  And(a = a[7], b = b[7], out = out[7]);
  And(a = a[8], b = b[8], out = out[8]);
  And(a = a[9], b = b[9], out = out[9]);
  And(a = a[10], b = b[10], out = out[10]);
  And(a = a[11], b = b[11], out = out[11]);
  And(a = a[12], b = b[12], out = out[12]);
  And(a = a[13], b = b[13], out = out[13]);
  And(a = a[14], b = b[14], out = out[14]);
  And(a = a[15], b = b[15], out = out[15]);
}")

;(hdl-parse input0)
;(hdl-parse input1)