Skip to content

Commit

Permalink
- Remove some tabs from sources
Browse files Browse the repository at this point in the history
git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@11398 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
  • Loading branch information
sjoelund committed Mar 13, 2012
1 parent dbd429c commit fe108e6
Show file tree
Hide file tree
Showing 14 changed files with 1,525 additions and 1,529 deletions.
46 changes: 23 additions & 23 deletions Compiler/Template/TplAbsyn.mo
Expand Up @@ -1262,7 +1262,7 @@ algorithm
exp = exp),
mmopts, stmts, intxt, outtxt, locals, scEnv, tplPackage, accMMDecls )
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
(_, idtype, _)
= resolveBoundPath(IDENT(ident), scEnv, tplPackage);
failure(UNRESOLVED_TYPE(_) = idtype);
Expand Down Expand Up @@ -1418,7 +1418,7 @@ algorithm
//warning - more options than expected
case ( (optid,_) ::_ )
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
Debug.fprint(Flags.FAILTRACE, "Error - more options specified than expected for an expression (first option is '" +& optid +& "').\n");
then fail();

Expand Down Expand Up @@ -2026,7 +2026,7 @@ algorithm
//trying to convert a value when there is no conversion for its type
case (mmexp, ts, inSourceInfo)
equation
str = "Elaborated expression '" +& mmExpString(mmexp) +& "' of type '"
str = "Elaborated expression '" +& mmExpString(mmexp) +& "' of type '"
+& typeSignatureString(ts) +& "' has no automatic to-string conversion.";
addSusanError(str, inSourceInfo);
reason = "Error# " +& str +& " #";
Expand Down Expand Up @@ -2144,7 +2144,7 @@ algorithm

case (argvals, fname, iargs, oargs, tyVars, intxt, outtxt, locals, tplPackage)
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
errArgVals = List.map(argvals, Util.tuple312);
str = "Error - cannot elaborate function\n "
+& Tpl.tplString3(TplCodegen.sFunSignature, fname, iargs, oargs)
Expand Down Expand Up @@ -3543,7 +3543,7 @@ algorithm

case ( (ident, mexp) :: fms, fields, astDefs)
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
failure( _ = lookupTupleList(fields, ident) );
//reason = "#Error - unresolved type - cannot find field '" +& ident +& "'#";
Debug.fprint(Flags.FAILTRACE, "Error - typeCheckMatchingExpRecord failed to find field '" +& ident +& "'\n");
Expand Down Expand Up @@ -4353,7 +4353,7 @@ algorithm
case ( path, UNRESOLVED_TYPE(reason), msg, inInfo)
equation

//true = Flags.isSet(Flags.FAILTRACE);
//true = Flags.isSet(Flags.FAILTRACE);
//msg = msg +& " unresolved type of '" +& pathIdentString(path) +& "', reason = '" +& reason +& "'.\n";
msg = "(" +& msg +& ") " +& reason;
//Debug.fprint(Flags.FAILTRACE, "ADD Error: " +& msg +& "\n"); //+& " unresolved path '" +& pathIdentString(path) +& "', reason = '" +& reason +& "'.\n");
Expand Down Expand Up @@ -4390,7 +4390,7 @@ algorithm
equation
msg = "(" +& msg +& ") identifier '" +& inIdent +& "' was expected to have Text& type but resolved to " +& typeSignatureString(ts)
+& ".\n Only Text& typed variables can be appended to.";
addSusanError(msg, inInfo);
addSusanError(msg, inInfo);
then
UNRESOLVED_TYPE(msg);

Expand Down Expand Up @@ -5147,7 +5147,7 @@ algorithm
//should not ever happen
case ( ident, _, _, _, _)
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
Debug.fprint(Flags.FAILTRACE, "-!!!lookupUpdateMExpDotPath failed for ident '" +& ident +& "'.\n");
then
fail();
Expand Down Expand Up @@ -5342,7 +5342,7 @@ algorithm

case ( inid, path, (ident, mexp) :: fms, fields, astDefs )
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
failure( _ = lookupTupleList(fields, ident) );
Debug.fprint(Flags.FAILTRACE, "-Error!!!lookupUpdateMExpRecord failed in lookup for field (type) ident '" +& ident +& "'.\n");
then
Expand Down Expand Up @@ -5431,14 +5431,14 @@ algorithm

case ( mtype as NAMED_TYPE(name = _), tagpath, _)
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
Debug.fprint(Flags.FAILTRACE, "Error - (getFieldsForRecord) for case tag '" +& pathIdentString(tagpath) +& "' failed for reason above.\n");
then
fail();

case ( mtype, tagpath, _)
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
//failure(NAMED_TYPE(_) = mtype);
Debug.fprint(Flags.FAILTRACE, "Error - for case tag '" +& pathIdentString(tagpath) +& "' the input type is not a NAME_TYPE hence not a union/record type.\n");
then
Expand Down Expand Up @@ -5577,14 +5577,14 @@ algorithm

case (NONE(), typeident, {} )
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
Debug.fprint(Flags.FAILTRACE, "Error - getTypeInfo failed to lookup the type '" +& typeident +& "' after looking up all AST definitions.\n");
then
fail();

case ( SOME(typepckg), typeident, {} )
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
Debug.fprint(Flags.FAILTRACE, "Error - getTypeInfo failed to lookup the type '" +& pathIdentString(typepckg) +& "." +& typeident +& "' after looking up all AST definitions.\n");
then
fail();
Expand Down Expand Up @@ -5911,7 +5911,7 @@ algorithm

case (fname as IDENT(templname), inSourceInfo, TEMPL_PACKAGE(templateDefs = templateDefs))
equation
_ = lookupTupleList(templateDefs, templname);
_ = lookupTupleList(templateDefs, templname);
msg = "Constant template '" +& templname +& "' is used in a function/template context (while it is defined as a constant).";
addSusanError(msg, inSourceInfo);
then
Expand Down Expand Up @@ -5989,7 +5989,7 @@ algorithm

case ( tagident, TI_UNION_TYPE(recTags = rectags) , typeident)
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
failure(_ = lookupTupleList(rectags, tagident));
Debug.fprint(Flags.FAILTRACE, "Error - getFields failed to lookup the union tag '" +& tagident +& "', that is not found in type '" +& typeident +& "'.\n");
then
Expand All @@ -6003,7 +6003,7 @@ algorithm

case ( tagident, TI_RECORD_TYPE(fields = fields), typeident )
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
false = stringEq(tagident, typeident);
Debug.fprint(Flags.FAILTRACE, "Error - getFields failed to match the tag '" +& tagident +& "', the type '" +& typeident +& "' expected.\n");
then
Expand All @@ -6012,7 +6012,7 @@ algorithm
//should not ever happen
case ( _, typeinfo, _ )
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
failure(TI_UNION_TYPE(_) = typeinfo);
failure(TI_RECORD_TYPE(_) = typeinfo);
Debug.fprint(Flags.FAILTRACE, "- getFields failed - the typeinfo is neither union nor record type.\n");
Expand Down Expand Up @@ -6075,7 +6075,7 @@ algorithm
isDefault = isdefault,
types = typeLst) :: restAstDefs)
equation
true = Flags.isSet(Flags.FAILTRACE);
true = Flags.isSet(Flags.FAILTRACE);
failure(typeLst = listMap1Tuple22(typeLst, fullyQualifyAstTypeInfo, importckg));
Debug.fprint(Flags.FAILTRACE, "-fullyQualifyASTDefs failed for importckg = " +& pathIdentString(importckg) +& " .\n");
then
Expand Down Expand Up @@ -6600,8 +6600,8 @@ end addSusanError;


public function canBeEscapedUnquoted
input list<String> inStringList;
output Boolean outCanBeUnquoted;
input list<String> inStringList;
output Boolean outCanBeUnquoted;
algorithm
outCanBeUnquoted :=
matchcontinue (inStringList)
Expand All @@ -6628,7 +6628,7 @@ algorithm
then
false;

end matchcontinue;
end matchcontinue;
end canBeEscapedUnquoted;


Expand Down Expand Up @@ -6664,8 +6664,8 @@ end canBeEscapedUnquotedChars;


public function canBeOnOneLine
input list<String> inStringList;
output Boolean outCanBeOnOneLine;
input list<String> inStringList;
output Boolean outCanBeOnOneLine;
algorithm
outCanBeOnOneLine :=
(listLength(inStringList) <= 4)
Expand Down

0 comments on commit fe108e6

Please sign in to comment.