inform about new module for system library

This commit is contained in:
Vítor Santos Costa II 2010-04-22 12:11:15 +01:00
parent 14b1f65e35
commit 3272d5d230
10 changed files with 11 additions and 1 deletions

View File

@ -3211,7 +3211,7 @@ Yap_InitSysPreds(void)
Yap_InitCPred ("virtual_alarm", 4, p_virtual_alarm, SafePredFlag|SyncPredFlag|HiddenPredFlag);
Yap_InitCPred ("enable_interrupts", 0, p_enable_interrupts, SafePredFlag);
Yap_InitCPred ("disable_interrupts", 0, p_disable_interrupts, SafePredFlag);
CurrentModule = SYSTEM_MODULE;
CurrentModule = OPERATING_SYSTEM_MODULE;
Yap_InitCPred ("true_file_name", 2, p_true_file_name, SyncPredFlag);
Yap_InitCPred ("true_file_name", 3, p_true_file_name3, SyncPredFlag);
CurrentModule = cm;

View File

@ -90,6 +90,7 @@
#define CHARSIO_MODULE Yap_heap_regs->charsio_module
#define TERMS_MODULE Yap_heap_regs->terms_module
#define SYSTEM_MODULE Yap_heap_regs->system_module
#define OPERATING_SYSTEM_MODULE Yap_heap_regs->operating_system_module
#define READUTIL_MODULE Yap_heap_regs->readutil_module
#define HACKS_MODULE Yap_heap_regs->hacks_module
#define ARG_MODULE Yap_heap_regs->arg_module

View File

@ -90,6 +90,7 @@
Term charsio_module;
Term terms_module;
Term system_module;
Term operating_system_module;
Term readutil_module;
Term hacks_module;
Term arg_module;

View File

@ -184,6 +184,7 @@
AtomOnline = Yap_LookupAtom("online");
AtomOpen = Yap_LookupAtom("open");
AtomOperatingSystemError = Yap_LookupAtom("operating_system_error");
AtomOperatingSystemSupport = Yap_LookupAtom("operating_system_support");
AtomOperator = Yap_LookupAtom("operator");
AtomOperatorPriority = Yap_LookupAtom("operator_priority");
AtomOperatorSpecifier = Yap_LookupAtom("operator_specifier");

View File

@ -90,6 +90,7 @@
Yap_heap_regs->charsio_module = MkAtomTerm(AtomCharsio);
Yap_heap_regs->terms_module = MkAtomTerm(AtomTerms);
Yap_heap_regs->system_module = MkAtomTerm(AtomSystem);
Yap_heap_regs->operating_system_module = MkAtomTerm(AtomOperatingSystemSupport);
Yap_heap_regs->readutil_module = MkAtomTerm(AtomReadutil);
Yap_heap_regs->hacks_module = MkAtomTerm(AtomYapHacks);
Yap_heap_regs->arg_module = MkAtomTerm(AtomArg);

View File

@ -184,6 +184,7 @@
AtomOnline = AtomAdjust(AtomOnline);
AtomOpen = AtomAdjust(AtomOpen);
AtomOperatingSystemError = AtomAdjust(AtomOperatingSystemError);
AtomOperatingSystemSupport = AtomAdjust(AtomOperatingSystemSupport);
AtomOperator = AtomAdjust(AtomOperator);
AtomOperatorPriority = AtomAdjust(AtomOperatorPriority);
AtomOperatorSpecifier = AtomAdjust(AtomOperatorSpecifier);

View File

@ -90,6 +90,7 @@
Yap_heap_regs->charsio_module = AtomTermAdjust(Yap_heap_regs->charsio_module);
Yap_heap_regs->terms_module = AtomTermAdjust(Yap_heap_regs->terms_module);
Yap_heap_regs->system_module = AtomTermAdjust(Yap_heap_regs->system_module);
Yap_heap_regs->operating_system_module = AtomTermAdjust(Yap_heap_regs->operating_system_module);
Yap_heap_regs->readutil_module = AtomTermAdjust(Yap_heap_regs->readutil_module);
Yap_heap_regs->hacks_module = AtomTermAdjust(Yap_heap_regs->hacks_module);
Yap_heap_regs->arg_module = AtomTermAdjust(Yap_heap_regs->arg_module);

View File

@ -366,6 +366,8 @@
#define AtomOpen Yap_heap_regs->AtomOpen_
Atom AtomOperatingSystemError_;
#define AtomOperatingSystemError Yap_heap_regs->AtomOperatingSystemError_
Atom AtomOperatingSystemSupport_;
#define AtomOperatingSystemSupport Yap_heap_regs->AtomOperatingSystemSupport_
Atom AtomOperator_;
#define AtomOperator Yap_heap_regs->AtomOperator_
Atom AtomOperatorPriority_;

View File

@ -189,6 +189,7 @@ A On N "on"
A Online N "online"
A Open N "open"
A OperatingSystemError N "operating_system_error"
A OperatingSystemSupport N "operating_system_support"
A Operator N "operator"
A OperatorPriority N "operator_priority"
A OperatorSpecifier N "operator_specifier"

View File

@ -93,6 +93,7 @@ Term attributes_module ATTRIBUTES_MODULE MkAT AtomAttributes
Term charsio_module CHARSIO_MODULE MkAT AtomCharsio
Term terms_module TERMS_MODULE MkAT AtomTerms
Term system_module SYSTEM_MODULE MkAT AtomSystem
Term operating_system_module OPERATING_SYSTEM_MODULE MkAT AtomOperatingSystemSupport
Term readutil_module READUTIL_MODULE MkAT AtomReadutil
Term hacks_module HACKS_MODULE MkAT AtomYapHacks
Term arg_module ARG_MODULE MkAT AtomArg