diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

indenting

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-11-10 14:16:10 +00:00
parent a3c09d66be
commit 7468de4553
1 changed files with 54 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
os/readterm.c
View File

@ -263,14 +263,12 @@ Term Yap_syntax_error(TokEntry *errtok, int sno) {
}
ts[0] = Yap_MkApplTerm(Yap_MkFunctor(AtomAtom, 1), 1, t0);
} break;
case QuasiQuotes_tok:
{
case QuasiQuotes_tok: {
Term t0[2];
t0[0] = MkAtomTerm(Yap_LookupAtom("<QQ>"));
ts[0] = Yap_MkApplTerm(Yap_MkFunctor(AtomAtom, 1), 1, t0);
} break;
case WQuasiQuotes_tok:
{
case WQuasiQuotes_tok: {
Term t0[2];
t0[0] = MkAtomTerm(Yap_LookupAtom("<WideQQ>"));
ts[0] = Yap_MkApplTerm(Yap_MkFunctor(AtomAtom, 1), 1, t0);
@ -287,7 +285,8 @@ Term Yap_syntax_error(TokEntry *errtok, int sno) {
ts[0] = Yap_MkApplTerm(Yap_MkFunctor(AtomGVar, 2), 2, t);
} break;
case String_tok: {
Term t0 = Yap_CharsToTDQ((char *)info, CurrentModule, ENC_ISO_LATIN1 PASS_REGS);
Term t0 =
Yap_CharsToTDQ((char *)info, CurrentModule, ENC_ISO_LATIN1 PASS_REGS);
if (!t0) {
return 0;
}
@ -300,7 +299,8 @@ Term Yap_syntax_error(TokEntry *errtok, int sno) {
ts[0] = Yap_MkApplTerm(Yap_MkFunctor(AtomString, 1), 1, &t0);
} break;
case BQString_tok: {
Term t0 = Yap_CharsToTBQ((char *)info, CurrentModule, ENC_ISO_LATIN1 PASS_REGS);
Term t0 =
Yap_CharsToTBQ((char *)info, CurrentModule, ENC_ISO_LATIN1 PASS_REGS);
ts[0] = Yap_MkApplTerm(Yap_MkFunctor(AtomString, 1), 1, &t0);
} break;
case WBQString_tok: {
@ -632,7 +632,8 @@ static parser_state_t initParser(Term opts, FEnv *fe, REnv *re, int inp_stream,
if (LOCAL_Error_TYPE)
Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, NULL);
fe->t = 0;
return YAP_PARSING_FINISHED;;
return YAP_PARSING_FINISHED;
;
}
if (GLOBAL_Stream[inp_stream].status & Push_Eof_Stream_f) {
fe->t = MkAtomTerm(AtomEof);
@ -1186,8 +1187,7 @@ Term Yap_ReadFromAtom(Atom a, Term opts) {
char *s = a->StrOfAE;
size_t len = strlen(s);
encoding_t enc = ENC_ISO_LATIN1;
sno =
Yap_open_buf_read_stream((char *)s, len, &enc, MEM_BUF_USER);
sno = Yap_open_buf_read_stream((char *)s, len, &enc, MEM_BUF_USER);
}
rval = Yap_read_term(sno, opts, 3);
@ -1199,8 +1199,8 @@ static Term readFromBuffer(const char *s, Term opts) {
Term rval;
int sno;
encoding_t enc = ENC_ISO_UTF8;
sno = Yap_open_buf_read_stream((char *)s, strlen_utf8((unsigned char *)s), &enc,
MEM_BUF_USER);
sno = Yap_open_buf_read_stream((char *)s, strlen_utf8((unsigned char *)s),
&enc, MEM_BUF_USER);
rval = Yap_read_term(sno, opts, 3);
Yap_CloseStream(sno);
@ -1246,16 +1246,16 @@ static Int atom_to_term(USES_REGS1) {
* @param _T_ the output term _T_, may be any term
*
*/
static Int
term_to_string(USES_REGS1) {
static Int term_to_string(USES_REGS1) {
Term t2 = Deref(ARG2), rc = false, t1 = Deref(ARG1);
const char *s;
if (IsVarTerm(t2)) {
size_t length;
s = Yap_TermToString(ARG1, NULL, 0, &length, NULL, Quote_illegal_f|Handle_vars_f);
if (!s || !
MkStringTerm(s)) {
Yap_Error(RESOURCE_ERROR_HEAP,t1,"Could not get memory from the operating system");
s = Yap_TermToString(ARG1, NULL, 0, &length, NULL,
Quote_illegal_f | Handle_vars_f);
if (!s || !MkStringTerm(s)) {
Yap_Error(RESOURCE_ERROR_HEAP, t1,
"Could not get memory from the operating system");
return false;
}
return Yap_unify(ARG2, MkStringTerm(s));
@ -1268,7 +1268,6 @@ term_to_string(USES_REGS1) {
return (rc = readFromBuffer(s, TermNil)) != 0L && Yap_unify(rc, ARG1);
}
/**
* @pred atom_to_term( ?_Atom_ , ? _T_ )
*
@ -1279,16 +1278,16 @@ term_to_string(USES_REGS1) {
* @param _T_ the output term _T_, may be any term
*
*/
static Int
term_to_atom(USES_REGS1) {
static Int term_to_atom(USES_REGS1) {
Term t1 = Deref(ARG2), ctl, rc = false;
Atom at;
if (IsVarTerm(t1)) {
size_t length;
char * s =
Yap_TermToString(t1, NULL, 0, &length, NULL, Quote_illegal_f|Handle_vars_f);
char *s = Yap_TermToString(t1, NULL, 0, &length, NULL,
Quote_illegal_f | Handle_vars_f);
if (!s || !(at = Yap_LookupAtom(s))) {
Yap_Error(RESOURCE_ERROR_HEAP,t1,"Could not get memory from the operating system");
Yap_Error(RESOURCE_ERROR_HEAP, t1,
"Could not get memory from the operating system");
return false;
}
return Yap_unify(ARG2, MkAtomTerm(at));
@ -1299,8 +1298,7 @@ term_to_atom(USES_REGS1) {
at = AtomOfTerm(t1);
}
ctl = TermNil;
return Yap_ReadFromAtom(at, ctl) == 0L
&& Yap_unify(rc, ARG1);
return Yap_ReadFromAtom(at, ctl) == 0L && Yap_unify(rc, ARG1);
}
/**
@ -1417,7 +1415,6 @@ void Yap_InitReadTPreds(void) {
Yap_InitCPred("read_clause", 2, read_clause2, SyncPredFlag);
Yap_InitCPred("read_clause", 3, read_clause, 0);
Yap_InitCPred("term_to_string", 2, term_to_string, 0);
Yap_InitCPred("term_to_atom", 2, term_to_atom, 0);
Yap_InitCPred("atom_to_term", 3, atom_to_term, 0);