some styling cleanup whilst I wait for my build

Author: JordyAaldering

src/structures/List.sac

@@ -5,59 +5,65 @@ module List deprecated "The List module contains a space leak.";
 export all;
 
 /*
- *  The SAC standard module List provides lists of integers as an
- *  additional data type offering access functions as usual.
+ * The SAC standard module List provides lists of integers as an
+ * additional data type offering access functions as usual.
  */
 
 external typedef list;
-    //#pragma ctype "list*"
     #pragma copyfun "SAClistcopy"
     #pragma freefun "SAClistfree"
     #pragma linkobj "src/List/List.o"
+    // #pragma ctype "list*"
 
 external list nil();
     #pragma linkname "SAClistnil"
     #pragma linkobj "src/List/List.o"
     // #pragma header "src/List/List.h"
-external list cons( int ELEM, list LIST);
+
+external list cons(int ELEM, list LIST);
     #pragma linkname "SAClistcons"
     #pragma linkobj "src/List/List.o"
     // #pragma header "src/List/List.h"
-external int  hd( list LIST);
+
+external int hd(list LIST);
     #pragma linkname "SAClisthead"
     #pragma linkobj "src/List/List.o"
     // #pragma header "src/List/List.h"
-external list tl( list LIST);
+
+external list tl(list LIST);
     #pragma linkname "SAClisttail"
     #pragma sacarg [0]
     #pragma linkobj "src/List/List.o"
     // #pragma header "src/List/List.h"
-external bool empty( list LIST);
+
+external bool empty(list LIST);
     #pragma linkname "SAC_List_empty"
     #pragma linkobj "src/List/List.o"
     // #pragma header "src/List/List.h"
-external list append( list LIST1, list LIST2);
+
+external list append(list LIST1, list LIST2);
     #pragma linkname "SAClistappend"
-    #pragma sacarg [0, 1, 2]
+    #pragma sacarg [0,1,2]
     #pragma linkobj "src/List/List.o"
     // #pragma header "src/List/List.h"
-external int  nth( int N, list LIST);
+
+external int nth(int N, list LIST);
     #pragma linkname "SAClistnth"
     #pragma linkobj "src/List/List.o"
     // #pragma header "src/List/List.h"
-external int  length( list LIST);
+
+external int length(list LIST);
     #pragma linkname "SAClistlength"
     #pragma linkobj "src/List/List.o"
     // #pragma header "src/List/List.h"
-external list drop( int N, list LIST);
+
+external list drop(int N, list LIST);
     #pragma linkname "SAClistdrop"
-    #pragma sacarg [0, 2]
+    #pragma sacarg [0,2]
     #pragma linkobj "src/List/List.o"
     // #pragma header "src/List/List.h"
-external list take( int N, list LIST);
+
+external list take(int N, list LIST);
     #pragma linkname "SAClisttake"
     #pragma linkobj "src/List/List.o"
     // #pragma header "src/List/List.h"
-
-
-

src/structures/src/Char/Char.c

@@ -1,89 +1,78 @@
-/*
- *  Implementation of standard module Char ctype functions.
- *  It is sort of unfortunate that we have to use these
- *  functions as they incur a per-character overhead.
- *  However, without them incorrect values were produced.
- *  There were two problems:
- *  The isxxx(.) functions work on unsigned chars and not on chars.
- *  They may segfault when not in the range [-1,255].
- *  They may return any non-zero value when true, but a SAC bool is true if 1.
- */
-
 #include <ctype.h>
+
 #include "Char.h"
 
 bool SACisalpha(uchar c)
 {
-  return isalpha(c) != 0;
+    return isalpha(c) != 0;
 }
 
 bool SACisupper(uchar c)
 {
-  return isupper(c) != 0;
+    return isupper(c) != 0;
 }
 
 bool SACislower(uchar c)
 {
-  return islower(c) != 0;
+    return islower(c) != 0;
 }
 
 bool SACisdigit(uchar c)
 {
-  return isdigit(c) != 0;
+    return isdigit(c) != 0;
 }
 
 bool SACisxdigit(uchar c)
 {
-  return isxdigit(c) != 0;
+    return isxdigit(c) != 0;
 }
 
 bool SACisspace(uchar c)
 {
-  return isspace(c) != 0;
+    return isspace(c) != 0;
 }
 
 bool SACispunct(uchar c)
 {
-  return ispunct(c) != 0;
+    return ispunct(c) != 0;
 }
 
 bool SACisalnum(uchar c)
 {
-  return isalnum(c) != 0;
+    return isalnum(c) != 0;
 }
 
 bool SACisprint(uchar c)
 {
-  return isprint(c) != 0;
+    return isprint(c) != 0;
 }
 
 bool SACisgraph(uchar c)
 {
-  return isgraph(c) != 0;
+    return isgraph(c) != 0;
 }
 
 bool SACiscntrl(uchar c)
 {
-  return iscntrl(c) != 0;
+    return iscntrl(c) != 0;
 }
 
 bool SACisascii(sac_int c)
 {
-  return c >= 0 && c < 256 && isascii(c) != 0;
+    return c >= 0 && c < 256 && isascii(c) != 0;
 }
 
 uchar SACtoascii(sac_int c)
 {
-  return toascii(c & 0xFF);
+    return toascii(c & 0xFF);
 }
 
 uchar SACtolower(uchar c)
 {
-  return tolower(c);
+    return tolower(c);
 }
 
 uchar SACtoupper(uchar c)
 {
-  return toupper(c);
+    return toupper(c);
 }
-

src/structures/src/Char/Char.h

@@ -1,20 +1,20 @@
-#ifndef STDLIB__CHAR__H
-#define STDLIB__CHAR__H
+#ifndef _SAC_CHAR_H_
+#define _SAC_CHAR_H_
 
 /*
- *  Implementation of standard module Char ctype functions.
- *  It is sort of unfortunate that we have to use these
- *  functions as they incur a per-character overhead.
- *  However, without them incorrect values were produced.
- *  There were two problems:
- *  The isxxx(.) functions work on unsigned chars and not on chars.
- *  They may segfault when not in the range [-1,255].
- *  They may return any non-zero value when true, but a SAC bool is true if 1.
+ * Implementation of standard module Char ctype functions. It is sort of
+ * unfortunate that we have to use these functions as they incur a per-character
+ * overhead. However, without them incorrect values were produced.
+ * There were two problems:
+ *  - The isxxx(.) functions work on unsigned chars and not on chars.
+ *    They may segfault when not in the range [-1,255].
+ *  - They may return any non-zero value when true, but a SaC bool is true if 1.
  */
 
-#include "sacinterface.h"
 #include <stdbool.h>
 
+#include "sacinterface.h"
+
 typedef unsigned char uchar;
 
 bool SACisalpha(uchar c);
@@ -33,4 +33,4 @@ uchar SACtoascii(sac_int c);
 uchar SACtolower(uchar c);
 uchar SACtoupper(uchar c);
 
-#endif // STDLIB__CHAR__H
+#endif /* _SAC_CHAR_H_ */