hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

implemented a few list manipulation procedures

Browse Source
This commit is contained in:
hyung-hwan
2014-01-19 06:40:23 +00:00
parent 5df2592627
commit 5fd00968e6
9 changed files with 439 additions and 210 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
h2/lib/h2-scheme.ads
View File

@ -180,14 +180,16 @@ package H2.Scheme is
Set_Syntax: constant Syntax_Code := Syntax_Code'(12);
subtype Procedure_Code is Object_Integer;
Car_Procedure: constant Procedure_Code := Procedure_Code'(0);
Cdr_Procedure: constant Procedure_Code := Procedure_Code'(1);
Setcar_Procedure: constant Procedure_Code := Procedure_Code'(2);
Setcdr_Procedure: constant Procedure_Code := Procedure_Code'(3);
Add_Procedure: constant Procedure_Code := Procedure_Code'(4);
Subtract_Procedure: constant Procedure_Code := Procedure_Code'(5);
Multiply_Procedure: constant Procedure_Code := Procedure_Code'(6);
Divide_Procedure: constant Procedure_Code := Procedure_Code'(7);
Add_Procedure: constant Procedure_Code := Procedure_Code'(0);
Car_Procedure: constant Procedure_Code := Procedure_Code'(1);
Cdr_Procedure: constant Procedure_Code := Procedure_Code'(2);
Cons_Procedure: constant Procedure_Code := Procedure_Code'(3);
Multiply_Procedure: constant Procedure_Code := Procedure_Code'(4);
Quotient_Procedure: constant Procedure_Code := Procedure_Code'(5);
Remainder_Procedure: constant Procedure_Code := Procedure_Code'(6);
Setcar_Procedure: constant Procedure_Code := Procedure_Code'(7);
Setcdr_Procedure: constant Procedure_Code := Procedure_Code'(8);
Subtract_Procedure: constant Procedure_Code := Procedure_Code'(9);
type Object_Tag is (
Unknown_Object,