From 6ebc31f2d8b5c485dee265e09c3c635fa357c021 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Mon, 19 Jul 2010 14:48:42 +0100
Subject: [PATCH] codes/2 functor (used by format).

---
 H/iatoms.h | 2 ++
 H/ratoms.h | 2 ++
 H/tatoms.h | 4 ++++
 misc/ATOMS | 2 ++
 4 files changed, 10 insertions(+)

diff --git a/H/iatoms.h b/H/iatoms.h
index e23025b03..f21574333 100644
--- a/H/iatoms.h
+++ b/H/iatoms.h
@@ -48,6 +48,7 @@
   AtomCleanCall = Yap_FullLookupAtom("$clean_call");
   AtomColomn = Yap_LookupAtom(":");
   AtomCodeSpace = Yap_LookupAtom("code_space");
+  AtomCodes = Yap_LookupAtom("codes");
   AtomComma = Yap_LookupAtom(",");
   AtomCompound = Yap_LookupAtom("compound");
   AtomConsistencyError = Yap_LookupAtom("consistency_error");
@@ -326,6 +327,7 @@
   FunctorChangeModule = Yap_MkFunctor(AtomChangeModule,1);
   FunctorCleanCall = Yap_MkFunctor(AtomCleanCall,2);
   FunctorClist = Yap_MkFunctor(AtomWhen,4);
+  FunctorCodes = Yap_MkFunctor(AtomCodes,2);
   FunctorComma = Yap_MkFunctor(AtomComma,2);
   FunctorContext2 = Yap_MkFunctor(AtomContext,2);
   FunctorConsistencyError = Yap_MkFunctor(AtomConsistencyError,1);
diff --git a/H/ratoms.h b/H/ratoms.h
index a53f76c3c..a54066633 100644
--- a/H/ratoms.h
+++ b/H/ratoms.h
@@ -48,6 +48,7 @@
   AtomCleanCall = AtomAdjust(AtomCleanCall);
   AtomColomn = AtomAdjust(AtomColomn);
   AtomCodeSpace = AtomAdjust(AtomCodeSpace);
+  AtomCodes = AtomAdjust(AtomCodes);
   AtomComma = AtomAdjust(AtomComma);
   AtomCompound = AtomAdjust(AtomCompound);
   AtomConsistencyError = AtomAdjust(AtomConsistencyError);
@@ -326,6 +327,7 @@
   FunctorChangeModule = FuncAdjust(FunctorChangeModule);
   FunctorCleanCall = FuncAdjust(FunctorCleanCall);
   FunctorClist = FuncAdjust(FunctorClist);
+  FunctorCodes = FuncAdjust(FunctorCodes);
   FunctorComma = FuncAdjust(FunctorComma);
   FunctorContext2 = FuncAdjust(FunctorContext2);
   FunctorConsistencyError = FuncAdjust(FunctorConsistencyError);
diff --git a/H/tatoms.h b/H/tatoms.h
index 3710678af..05ed9eacf 100644
--- a/H/tatoms.h
+++ b/H/tatoms.h
@@ -94,6 +94,8 @@
 #define AtomColomn Yap_heap_regs->AtomColomn_
   Atom AtomCodeSpace_;
 #define AtomCodeSpace Yap_heap_regs->AtomCodeSpace_
+  Atom AtomCodes_;
+#define AtomCodes Yap_heap_regs->AtomCodes_
   Atom AtomComma_;
 #define AtomComma Yap_heap_regs->AtomComma_
   Atom AtomCompound_;
@@ -650,6 +652,8 @@
 #define FunctorCleanCall Yap_heap_regs->FunctorCleanCall_
   Functor FunctorClist_;
 #define FunctorClist Yap_heap_regs->FunctorClist_
+  Functor FunctorCodes_;
+#define FunctorCodes Yap_heap_regs->FunctorCodes_
   Functor FunctorComma_;
 #define FunctorComma Yap_heap_regs->FunctorComma_
   Functor FunctorContext2_;
diff --git a/misc/ATOMS b/misc/ATOMS
index 35d7e439a..e2d951528 100644
--- a/misc/ATOMS
+++ b/misc/ATOMS
@@ -53,6 +53,7 @@ A	CharacterCode		N	"character_code"
 A	CleanCall		F	"$clean_call"
 A	Colomn			N	":"
 A	CodeSpace		N	"code_space"
+A	Codes			N	"codes"
 A	Comma			N	","
 A	Compound		N	"compound"
 A	ConsistencyError	N	"consistency_error"
@@ -331,6 +332,7 @@ F	Catch			Catch		3
 F	ChangeModule		ChangeModule	1
 F	CleanCall		CleanCall	2
 F	Clist			When		4
+F	Codes			Codes		2
 F	Comma			Comma		2
 F	Context2		Context		2
 F	ConsistencyError	ConsistencyError	1