TempleOSCDV4.11.ISO

Demo/Templates/Lex1.HC

@@ -0,0 +1,16 @@
+U0 MyRead(U8 *filename)
+{
+  CCmpCtrl *cc=CmpCtrlNew(MStrPrint("#include \"%s\"",filename));
+  while (Lex(cc)) {
+    "%03d:",cc->token;
+    switch (cc->token) {
+	case TK_IDENT:		"IDENT:%s",cc->cur_str;	break;
+	case TK_STR:		"STR:%s",cc->cur_str;	break;
+	case TK_CHAR_CONST:	"CHAR:%d",cc->cur_i64;	break;
+	case TK_I64:		"I64:%d",cc->cur_i64;	break;
+	case TK_F64:		"F64:%d",cc->cur_f64;	break;
+    }
+    '\n';
+  }
+  CmpCtrlDel(cc);
+}