Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 63 lines (52 sloc) 1.239 kb
fccc685 Initial open-source release
MLstate authored
1 /*
2 Copyright © 2011 MLstate
3
4 This file is part of OPA.
5
6 OPA is free software: you can redistribute it and/or modify it under the
7 terms of the GNU Affero General Public License, version 3, as published by
8 the Free Software Foundation.
9
10 OPA is distributed in the hope that it will be useful, but WITHOUT ANY
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
12 FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for
13 more details.
14
15 You should have received a copy of the GNU Affero General Public License
16 along with OPA. If not, see <http://www.gnu.org/licenses/>.
17 */
18 /* Char */
19
20 ##register chr : int -> char option
21 ##args(a)
22 {
23 char * r = 0 ;
24 if ((a < 0)||(a>255)) {
25 return(r);
26 }else{
27 /* OUPS LA PA : garbage collector */
28 r = (char *) malloc ( sizeof(char) ) ;
29 *r = (char ) a ;
30 return(r) ;
31 }
32 }
33
34 ##register unsafe_chr : int -> char
35 ##args(a)
36 {
37 return(a);
38 }
39
40 ##register code : char -> int
41 ##args(a)
42 {
43 return(a);
44 }
45
46 ##register compare : char -> char -> int
47 ##args(a,b)
48 {
49 return(a-b);
50 }
51
52 ##register lowercase : char -> char
53 ##args(a)
54 {
55 return(tolower(a));
56 }
57
58 ##register uppercase : char -> char
59 ##args(a)
60 {
61 return(toupper(a));
62 }
Something went wrong with that request. Please try again.