GnuCOBOL  2.0
A free COBOL compiler
system.def
Go to the documentation of this file.
1 /*
2  Copyright (C) 2006-2012, 2014 Free Software Foundation, Inc.
3  Written by Roger While
4 
5  This file is part of GnuCOBOL.
6 
7  The GnuCOBOL runtime library is free software: you can redistribute it
8  and/or modify it under the terms of the GNU Lesser General Public License
9  as published by the Free Software Foundation, either version 3 of the
10  License, or (at your option) any later version.
11 
12  GnuCOBOL is distributed in the hope that it will be useful,
13  but WITHOUT ANY WARRANTY; without even the implied warranty of
14  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15  GNU Lesser General Public License for more details.
16 
17  You should have received a copy of the GNU Lesser General Public License
18  along with GnuCOBOL. If not, see <http://www.gnu.org/licenses/>.
19 */
20 
21 
22 /* COB_SYSTEM_GEN (external name, number of parameters, internal name) */
23 
24 COB_SYSTEM_GEN ("SYSTEM", 1, cob_sys_system)
25 
26 
27 COB_SYSTEM_GEN ("CBL_AND", 3, cob_sys_and)
28 COB_SYSTEM_GEN ("CBL_CHANGE_DIR", 1, cob_sys_change_dir)
29 COB_SYSTEM_GEN ("CBL_CHECK_FILE_EXIST", 2, cob_sys_check_file_exist)
30 COB_SYSTEM_GEN ("CBL_CLOSE_FILE", 1, cob_sys_close_file)
31 COB_SYSTEM_GEN ("CBL_COPY_FILE", 2, cob_sys_copy_file)
32 COB_SYSTEM_GEN ("CBL_CREATE_DIR", 1, cob_sys_create_dir)
33 COB_SYSTEM_GEN ("CBL_CREATE_FILE", 5, cob_sys_create_file)
34 COB_SYSTEM_GEN ("CBL_DELETE_DIR", 1, cob_sys_delete_dir)
35 COB_SYSTEM_GEN ("CBL_DELETE_FILE", 1, cob_sys_delete_file)
36 COB_SYSTEM_GEN ("CBL_EQ", 3, cob_sys_eq)
37 COB_SYSTEM_GEN ("CBL_ERROR_PROC", 2, cob_sys_error_proc)
38 COB_SYSTEM_GEN ("CBL_EXIT_PROC", 2, cob_sys_exit_proc)
39 COB_SYSTEM_GEN ("CBL_FLUSH_FILE", 1, cob_sys_flush_file)
40 COB_SYSTEM_GEN ("CBL_GET_CSR_POS", 1, cob_sys_get_csr_pos)
41 COB_SYSTEM_GEN ("CBL_GET_CURRENT_DIR", 3, cob_sys_get_current_dir)
42 COB_SYSTEM_GEN ("CBL_GET_SCR_SIZE", 2, cob_sys_get_scr_size)
43 COB_SYSTEM_GEN ("CBL_IMP", 3, cob_sys_imp)
44 COB_SYSTEM_GEN ("CBL_NIMP", 3, cob_sys_nimp)
45 COB_SYSTEM_GEN ("CBL_NOR", 3, cob_sys_nor)
46 COB_SYSTEM_GEN ("CBL_NOT", 2, cob_sys_not)
47 COB_SYSTEM_GEN ("CBL_OC_GETOPT", 6, cob_sys_getopt_long_long)
48 COB_SYSTEM_GEN ("CBL_OC_HOSTED", 2, cob_sys_hosted)
49 COB_SYSTEM_GEN ("CBL_OC_NANOSLEEP", 1, cob_sys_oc_nanosleep)
50 COB_SYSTEM_GEN ("CBL_OPEN_FILE", 5, cob_sys_open_file)
51 COB_SYSTEM_GEN ("CBL_OR", 3, cob_sys_or)
52 COB_SYSTEM_GEN ("CBL_READ_FILE", 5, cob_sys_read_file)
53 COB_SYSTEM_GEN ("CBL_RENAME_FILE", 2, cob_sys_rename_file)
54 COB_SYSTEM_GEN ("CBL_TOLOWER", 2, cob_sys_tolower)
55 COB_SYSTEM_GEN ("CBL_TOUPPER", 2, cob_sys_toupper)
56 COB_SYSTEM_GEN ("CBL_WRITE_FILE", 5, cob_sys_write_file)
57 COB_SYSTEM_GEN ("CBL_XOR", 3, cob_sys_xor)
58 
59 
60 COB_SYSTEM_GEN ("C$CALLEDBY", 1, cob_sys_calledby)
61 COB_SYSTEM_GEN ("C$CHDIR", 2, cob_sys_chdir)
62 COB_SYSTEM_GEN ("C$COPY", 3, cob_sys_copyfile)
63 COB_SYSTEM_GEN ("C$DELETE", 2, cob_sys_file_delete)
64 COB_SYSTEM_GEN ("C$FILEINFO", 2, cob_sys_file_info)
65 COB_SYSTEM_GEN ("C$GETPID", 0, cob_sys_getpid)
66 COB_SYSTEM_GEN ("C$JUSTIFY", 1, cob_sys_justify)
67 COB_SYSTEM_GEN ("C$MAKEDIR", 1, cob_sys_mkdir)
69 COB_SYSTEM_GEN ("C$PARAMSIZE", 1, cob_sys_parameter_size)
70 COB_SYSTEM_GEN ("C$PRINTABLE", 1, cob_sys_printable)
71 COB_SYSTEM_GEN ("C$SLEEP", 1, cob_sys_sleep)
72 COB_SYSTEM_GEN ("C$TOLOWER", 2, cob_sys_tolower)
73 COB_SYSTEM_GEN ("C$TOUPPER", 2, cob_sys_toupper)
74 
75 
76 COB_SYSTEM_GEN ("\221", 2, cob_sys_x91)
77 COB_SYSTEM_GEN ("\344", 0, cob_sys_clear_screen)
78 COB_SYSTEM_GEN ("\345", 0, cob_sys_sound_bell)
79 COB_SYSTEM_GEN ("\364", 2, cob_sys_xf4)
80 COB_SYSTEM_GEN ("\365", 2, cob_sys_xf5)
81 
int cob_sys_create_file(unsigned char *, unsigned char *, unsigned char *, unsigned char *, unsigned char *)
Definition: fileio.c:5039
int cob_sys_toupper(void *p1, const int length)
Definition: common.c:3738
int cob_sys_justify(void *p1,...)
Definition: common.c:4086
int cob_sys_file_info(unsigned char *, unsigned char *)
Definition: fileio.c:5491
int cob_sys_create_dir(unsigned char *)
Definition: fileio.c:5369
int cob_sys_xor(const void *p1, void *p2, const int length)
Definition: common.c:3576
int cob_sys_sound_bell(void)
Definition: screenio.c:2506
int cob_sys_xf5(const void *p1, void *p2)
Definition: common.c:3681
int cob_sys_flush_file(unsigned char *)
Definition: fileio.c:5155
int cob_sys_write_file(unsigned char *, unsigned char *, unsigned char *, unsigned char *, unsigned char *)
Definition: fileio.c:5113
int cob_sys_system(const void *cmdline)
Definition: common.c:3426
int cob_sys_change_dir(unsigned char *)
Definition: fileio.c:5395
int cob_sys_getopt_long_long(void *so, void *lo, void *idx, const int long_only, void *return_char, void *opt_val)
Definition: common.c:3889
int cob_sys_clear_screen(void)
Definition: screenio.c:2377
int cob_sys_delete_file(unsigned char *)
Definition: fileio.c:5165
int cob_sys_close_file(unsigned char *)
Definition: fileio.c:5144
int cob_sys_get_scr_size(unsigned char *, unsigned char *)
Definition: screenio.c:2552
#define COB_SYSTEM_GEN(x, y, z)
Definition: codegen.c:182
int cob_sys_open_file(unsigned char *, unsigned char *, unsigned char *, unsigned char *, unsigned char *)
Definition: fileio.c:5026
int cob_sys_rename_file(unsigned char *, unsigned char *)
Definition: fileio.c:5299
int cob_sys_xf4(void *p1, const void *p2)
Definition: common.c:3665
int cob_sys_get_current_dir(const int, const int, unsigned char *)
Definition: fileio.c:5328
int cob_sys_eq(const void *p1, void *p2, const int length)
Definition: common.c:3630
int cob_sys_copyfile(unsigned char *, unsigned char *, unsigned char *)
Definition: fileio.c:5470
int cob_sys_delete_dir(unsigned char *)
Definition: fileio.c:5417
int cob_sys_sleep(const void *data)
Definition: common.c:4031
int cob_sys_or(const void *p1, void *p2, const int length)
Definition: common.c:3540
int cob_sys_error_proc(const void *dispo, const void *pptr)
Definition: common.c:3381
int cob_sys_not(void *p1, const int length)
Definition: common.c:3648
int cob_sys_nor(const void *p1, void *p2, const int length)
Definition: common.c:3558
int cob_sys_and(const void *p1, void *p2, const int length)
Definition: common.c:3522
int cob_sys_exit_proc(const void *dispo, const void *pptr)
Definition: common.c:3336
int cob_sys_nimp(const void *p1, void *p2, const int length)
Definition: common.c:3612
int cob_sys_printable(void *p1,...)
Definition: common.c:4053
int cob_sys_check_file_exist(unsigned char *, unsigned char *)
Definition: fileio.c:5239
int cob_sys_oc_nanosleep(const void *data)
Definition: common.c:3774
int cob_sys_hosted(void *p, const void *var)
Return some hosted C variables, argc, argv, stdin, stdout, stderr.
Definition: common.c:3465
int cob_sys_get_csr_pos(unsigned char *)
Definition: screenio.c:2530
int cob_sys_copy_file(unsigned char *, unsigned char *)
Definition: fileio.c:5187
int cob_sys_imp(const void *p1, void *p2, const int length)
Definition: common.c:3594
int cob_sys_tolower(void *p1, const int length)
Definition: common.c:3756
int cob_sys_return_args(void *data)
Definition: common.c:3827
int cob_sys_parameter_size(void *data)
Definition: common.c:3867
int cob_sys_chdir(unsigned char *, unsigned char *)
Definition: fileio.c:5453
int cob_sys_file_delete(unsigned char *, unsigned char *)
Definition: fileio.c:5555
int cob_sys_getpid(void)
Definition: common.c:3818
int cob_sys_read_file(unsigned char *, unsigned char *, unsigned char *, unsigned char *, unsigned char *)
Definition: fileio.c:5066
int cob_sys_x91(void *p1, const void *p2, void *p3)
Definition: common.c:3696
int cob_sys_calledby(void *data)
Definition: common.c:3841
int cob_sys_mkdir(unsigned char *)
Definition: fileio.c:5439