Codice

344 volume VI os16
Sorgenti della libreria generale 345
«
105.9.43 lib/stdio/vsscanf.c
Si veda la sezione 98.129.
2880019 | //
2880020 | while (1);
2880021 |}
2860001 |#include
2860002 |
«
«
2860003 |//----------------------------------------------------------------------
2860004 |int vfsscanf (FILE *restrict fp, const char *string,
2860005 | const char *restrict format, va_list ap);
2860006 |//----------------------------------------------------------------------
2860007 |int
2860008 |vsscanf (const char *string, const char *restrict format, va_list ap)
2860009 |{
2860010 | return (vfsscanf (NULL, string, format, ap));
2860011 |}
2860012 |//----------------------------------------------------------------------
105.10 os16: «lib/stdlib.h»
Si veda la sezione 101.2.
2870001 |#ifndef _STDLIB_H
2870002 |#define _STDLIB_H 1
2870003 |//----------------------------------------------------------------------
2870004 |
2870005 |#include
2870006 |#include
2870007 |#include
2870008 |#include
2870009 |#include
2870010 |#include
2870011 |//----------------------------------------------------------------------
2870012 |typedef struct {
2870013 | int quot;
2870014 | int rem;
2870015 |} div_t;
2870016 |//----------------------------------------------------------------------
2870017 |typedef struct {
2870018 | long int quot;
2870019 | long int rem;
2870020 |} ldiv_t;
2870021 |//----------------------------------------------------------------------
2870022 |typedef void (*atexit_t) (void); // Non standard. [1]
2870023 |//
2870024 |// [1] The type ‘atexit_t’ is a pointer to a function for the "at exit"
2870025 |// procedure, with no parameters and returning void. With the
2870026 |// declaration of type ‘atexit_t’, the function prototype of
2870027 |// ‘atexit()’ is easier to declare and to understand. Original
2870028 |// declaration is:
2870029 |//
2870030 |// int atexit (void (*function) (void));
2870031 |//
2870032 |//----------------------------------------------------------------------
2870033 |#define EXIT_FAILURE 1
2870034 |#define EXIT_SUCCESS 0
2870035 |#define RAND_MAX INT_MAX
2870036 |#define MB_CUR_MAX ((size_t) MB_LEN_MAX)
2870037 |//----------------------------------------------------------------------
2870038 |void _Exit (int status);
2870039 |void abort (void);
2870040 |int abs (int j);
2870041 |int atexit (atexit_t function);
2870042 |int atoi (const char *string);
2870043 |long int atol (const char *string);
2870044 |//void *bsearch (const void *key, const void *base,
2870045 |// size_t nmemb, size_t size,
2870046 |// int (*compar) (const void *, const void *));
2870047 |#define calloc(b, s) (malloc ((b) * (s)))
2870048 |div_t div (int numer, int denom);
2870049 |void exit (int status);
2870050 |void free (void *ptr);
2870051 |char *getenv (const char *name);
2870052 |long int labs (long int j);
2870053 |ldiv_t ldiv (long int numer, long int denom);
2870054 |void *malloc (size_t size);
2870055 |int putenv (const char *string);
2870056 |void qsort (void *base, size_t nmemb, size_t size,
2870057 | int (*compare) (const void *,
2870058 | const void *));
2870059 |int rand (void);
2870060 |void *realloc (void *ptr, size_t size);
2870061 |int setenv (const char *name, const char *value,
2870062 | int overwrite);
2870063 |void srand (unsigned int seed);
2870064 |long int strtol (const char *restrict string,
2870065 | char **restrict endptr, int base);
2870066 |unsigned long int strtoul (const char * restrict string,
2870067 | char ** restrict endptr, int base);
2870068 |//int system (const char *string);
2870069 |int unsetenv (const char *name);
2870070 |
2870071 |#endif
105.10.1 lib/stdlib/_Exit.c
Si veda la sezione 97.2.
2880001 |#include
2880002 |#include
2880003 |//----------------------------------------------------------------------
2880004 |void
2880005 |_Exit (int status)
2880006 |{
2880007 | sysmsg_exit_t msg;
2880008 | //
2880009 | // Only the low eight bit are returned.
2880010 | //
2880011 | msg.status = (status & 0xFF);
2880012 | //
2880013 | //
2880014 | //
2880015 | sys (SYS_EXIT, &msg, (sizeof msg));
2880016 | //
2880017 | // Should not return from system call, but if it does, loop
2880018 | // forever:
105.10.2 lib/stdlib/abort.c
Si veda la sezione 98.2.
2890001 |#include
2890002 |#include
2890003 |#include
2890004 |#include
2890005 |//----------------------------------------------------------------------
2890006 |void
2890007 |abort (void)
2890008 |{
2890009 | pid_t pid;
2890010 | sighandler_t sig_previous;
2890011 | //
2890012 | // Set ‘SIGABRT’ to a default action.
2890013 | //
2890014 | sig_previous = signal (SIGABRT, SIG_DFL);
2890015 | //
2890016 | // If the previous action was something different than symbolic
2890017 | // ones, configure again the previous action.
2890018 | //
2890019 | if (sig_previous != SIG_DFL &&
2890020 | sig_previous != SIG_IGN &&
2890021 | sig_previous != SIG_ERR)
2890022 | {
2890023 | signal (SIGABRT, sig_previous);
2890024 | }
2890025 | //
2890026 | // Get current process ID and sent the signal.
2890027 | //
2890028 | pid = getpid ();
2890029 | kill (pid, SIGABRT);
2890030 | //
2890031 | // Second chance
2890032 | //
2890033 | for (;;)
2890034 | {
2890035 | signal (SIGABRT, SIG_DFL);
2890036 | pid = getpid ();
2890037 | kill (pid, SIGABRT);
2890038 | }
2890039 |}
105.10.3 lib/stdlib/abs.c
Si veda la sezione 98.3.
2900001 |#include
2900002 |//----------------------------------------------------------------------
2900003 |int
2900004 |abs (int j)
2900005 |{
2900006 | if (j < 0)
2900007 | {
2900008 | return -j;
2900009 | }
2900010 | else
2900011 | {
2900012 | return j;
2900013 | }
2900014 |}
105.10.4 lib/stdlib/alloc.c
Si veda la sezione 98.66.
2910001 |#include
2910002 |#include
2910003 |#include
2910004 |#include
2910005 |#include
2910006 |//----------------------------------------------------------------------
2910007 |#define MEMORY_BLOCK_SIZE 1024
2910008 |//----------------------------------------------------------------------
2910009 |static char _alloc_memory[LONG_BIT][MEMORY_BLOCK_SIZE]; // [1]
2910010 |static size_t _alloc_size[LONG_BIT]; // [2]
2910011 |static long int _alloc_map; // [3]
2910012 |//
2910013 |// [1] Memory to be allocated.
2910014 |// [2] Sizes allocated.
2910015 |// [3] Memory block map. The memory map is made of a single integer and
2910016 |// the rightmost bit is the first memory block.
2910017 |//----------------------------------------------------------------------
2910018 |void *
2910019 |malloc (size_t size)
2910020 |{
2910021 | size_t size_free; // Size free found that might be allocated.
2910022 | int m; // Index inside ‘_alloc_memory[][]’ table.
2910023 | int s; // Start index for a free memory area.
2910024 | long int mask; // Mask to compare with ‘_alloc_map’.
2910025 | long int alloc; // New allocation map.
2910026 | //
2910027 | // Check for arguments.
2910028 | //
2910029 | if (size == 0)
2910030 | {
2910031 | return (NULL);
2910032 | }
2910033 | //
2910034 | for (s = 0, m = 0; m < LONG_BIT; m++)
2910035 | {
2910036 | mask = 1;
2910037 | mask