Home » Archimedes archive » Acorn User » AU 1996-12 B.adf » Features » PCA/Flexlib/h/flex

PCA/Flexlib/h/flex

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1996-12 B.adf » Features
Filename: PCA/Flexlib/h/flex
Read OK:
File size: 2D73 bytes
Load address: 0000
Exec address: 0000
File contents
/****************************************************************************
 * This source file was written by Acorn Computers Limited. It is part of   *
 * the RISCOS library for writing applications in C for RISC OS. It may be  *
 * used freely in the creation of programs for Archimedes. It should be     *
 * used with Acorn's C Compiler Release 3 or later.                         *
 *                                                                          *
 ***************************************************************************/

/*
 * Title  : flex.h
 * Purpose: provide memory allocation for interactive programs requiring
 *          large chunks of store. Such programs must respond to memory
 *          full errors.
 *
 *          Modified by Andy Armstrong to allow the use of Dynamic Areas
 *          when used on a Risc PC. Also allows a callback function to be
 *          registered. This notifies the application when a flex block moves.
 *
 *          Further modified by David Jackson to provide an interface with 
 *          the Virtualise module. 
 *
 *          Modified again to work with Acorn Toolbox (Ugh!)
 */

#ifndef __flex_h
#define __flex_h
#ifdef __cplusplus
extern "C" {
#endif
typedef void **flex_ptr;

#include "kernel.h"

#define flex_CALLBACK

/* ----------------------------- flex_alloc -------------------------------
 * Description:   Allocates n bytes of store, obtained from the Wimp.
 *
 * Parameters:    flex_ptr anchor -- to be used to access allocated store
 *                int n -- number of bytes to be allocated
 * Returns:       0 == failure, 1 == success
 * Other Info:    You should pass the & of a pointer variable as the first
 *                parameter. The allocated store MUST then be accessed
 *                indirectly, through this, ie. (*anchor)[0] ..(*anchor)[n]
 *                This is important since  the allocated store may later be
 *                moved (it's a shifting heap!!). If there's not enough
 *                store returns zero leaving anchor unchanged.
 *
 */

int flex_alloc(flex_ptr anchor, int n);


/* ------------------------------ flex_free -------------------------------
 * Description:   Frees the previously allocated store.
 *
 * Parameters:    flex_ptr anchor -- pointer to allocated store
 * Returns:       void.
 * Other Info:    *anchor will be set to 0.
 *
 */

void flex_free(flex_ptr anchor);


/* ------------------------------- flex_size ------------------------------
 * Description:   Informs caller of the number of bytes allocated
 *
 * Parameters:    flex_ptr -- pointer to allocated store
 * Returns:       number of allocated bytes. 
 * Other Info:    None.
 *
 */

int flex_size(flex_ptr);


/* --------------------------- flex_extend --------------------------------
 * Description:   Extend ot truncate the store area to have a new size.
 *
 * Parameters:    flex_ptr -- pointer to allocated store
 *                int newsize -- new size of store
 * Returns:       0 == failure, 1 == success.
 * Other Info:    None.
 *
 */

int flex_extend(flex_ptr, int newsize);


/* --------------------------- flex_midextend -----------------------------
 * Description:   Extend or truncate store, at any point.
 *
 * Parameters:    flex_ptr -- pointer to allocated store
 *                int at -- location within the allocated store
 *                int by -- extent
 * Returns:       0 == failure, 1 == success
 * Other Info:    If by is +ve, then store is extended, and locations above
 *                "at" are copied up by "by".
 *                If by is -ve, then store is reduced, and any bytes beyond
 *                "at" are copied down to "at"+"by".
 *
 */

int flex_midextend(flex_ptr, int at, int by);

#ifdef flex_CALLBACK

/* AA: 30.9.94 */

/* --------------------------- flex_cbfunc --------------------------------
 * A function of this type may be registered for each flex block so that
 * the owner of the block can be notified when the block moves
 */

typedef void (*flex_cbfunc)(BOOL b4, void *handle);

/* --------------------------- flex_register -------------------------------
 * Register the function to be called when a block of moves
 */

void flex_register(flex_ptr anchor, flex_cbfunc cb, void *handle);

#endif


/* ---------------------------- flex_budge --------------------------------
 * Description:    Function to move flex store, when the C library needs
 *                 to extend the heap.
 *
 * Parameters:     int n -- number of bytes needed by C library
 *                 void **a -- address of acquired store.  
 * Returns:        amount of store acquired.
 * Other Info:     Don't call this function directly, but register it 
 *                 with the C library via:
 *                    _kernel_register_slotextend(flex_budge);
 *                 This will cause flex store to be moved up if the C
 *                 library needs to extend the heap.  Note that in this 
 *                 state, you can only rely on pointers into flex blocks 
 *                 across function calls which do not extend the stack and 
 *                 do not call malloc.
 *                 The default state is flex_dont_budge, so, if required, 
 *                 this function should be registered AFTER calling 
 *                 flex_init().
 *
 */

extern int flex_budge(int n, void **a);


/* -------------------------- flex_dont_budge -----------------------------
 * Description:   Function to refuse to move flex store, when the C library 
 *                needs to extend the heap.
 *
 * Parameters:    int n -- number of bytes needed by C library
 *                void **a -- address of acquired store.
 * Returns:       amount of store acquired (always 0).
 * Other Info:    Don't call this function directly, but register it 
 *                with the C library via:
 *                   _kernel_register_slotextend(flex_dont_budge);
 *                If the C library needs to extend the heap, flex will 
 *                refuse to move. This means that you can rely on pointers 
 *                into flex blocks across function calls.
 *                This is the DEFAULT state after flex_init().
 *
 */

extern int flex_dont_budge(int n, void **a);



/* ---------------------------- flex_init ---------------------------------
 * Description:   Initialise store allocation module.
 *
 * Parameters:    char *program_name - name of program
 *                int  *error_fd     - messages file fd.
 * Returns:       void.
 * Other Info:    Must be called before any other functions in this module.
 *                program_name must point at a character string
 *                whose lifetime is the entire program (eg a string
 *                literal, or static buffer).
 *                error_fd is a pointer to a file descriptor as returned
 *                by MessageTrans_OpenFile - it will be used to report flex
 *                errors.  If it is 0, then English default messages are used. 
 *
 */

void flex_init(char *program_name, int *error_fd);



/* ---------------------------- flex_initx ---------------------------------
 * Description:   Initialise store allocation module.
 *
 * Parameters:    char *program_name - name of program
 *                int  *error_fd     - messages file fd.
 *                BOOL da      -- TRUE=use dynamic areas if available.
 *                int  maxsize -- Maximum size of dynamic area.
 *                BOOL virtual -- TRUE means use virtual memory.
 *                                If called with virtual = FALSE, virtual
 *                                memory can be switched on with 
 *                                flex_virtualstart
 * Returns:       void.
 * Other Info:    Must be called before any other functions in this module.
 *                May be replaced by flex_init
 */


void flex_initx(char *program_name, int *error_fd,BOOL da,int maxsize,BOOL virtual);

/* ---------------------------- flex_isdynamic ---------------------------------
 * Description:   Enquire whether dynamic area is in use.
 *
 * Parameters:    void.
 * Returns:       TRUE if a dynamic area is in use.
 * Other Info:    None
 */

BOOL flex_isdynamic(void);
    
/* ---------------------------- flex_VM ---------------------------------
 * Description:   Enquire whether virtual memory area is in use.
 *
 * Parameters:    void.
 * Returns:       TRUE if virtual memory is active.
 * Other Info:    None
 */


BOOL flex_isVM(void);


/* For full details of the following functions. Please read the documentation 
   provided with the virtualise module.
*/





/* ---------------------------- flex_VMConfigure ---------------------------------
 * Description:   Configure Virtulise module.
 *
 * Parameters:    int def   --  size of dynamic area created if passed -1 as size.
 *                              Applications don't normally alter this.
                  int cache --  use this much physical RAM before using VM
                  int left  --  but leave at least this much free for other applications.
 * Returns:       NULL if successful, otherwise an error pointer
 * Other Info:    None
 */

_kernel_oserror * flex_VMConfigure(int def,int cache,int left);



/* ---------------------------- flex_readVMConfigure ---------------------------------
 * Description:   Read Virtulise module configuration.
 *
 * Parameters:    int *def   --  on exit contains size of dynamic area created if passed -1 as size.
 *                               Applications don't normally alter this.
                  int *cache --  on exit contains size of physical RAM to use before using VM
                  int *left  --  on exit contains size to leave at free for other applications.
 * Returns:       NULL if successful, otherwise an error pointer
 * Other Info:    None
 */

_kernel_oserror * flex_readVMConfigure(int *def ,int *cache,int *left);


/* ---------------------------- flex_virtualstart ---------------------------------
 * Description:   start virtual memory on flex's dynamic area.
 *
 * Parameters:    char *swapfile   -- pointer to filename to use as swapfile. If NULL,
 *                                    Virtualise module will choose its own name (in the
 *                                    scrap directory. Applications will not normally
 *                                    alter this.
 * Returns:       NULL if successful, otherwise an error pointer
 * Other Info:    None
 */

_kernel_oserror * flex_virtualstart(char * swapfile);

/* ---------------------------- flex_virtualstop ---------------------------------
 * Description:   stop virtual memory on flex's dynamic area.
 *
 * Parameters:    void
 * Returns:       NULL if successful, otherwise an error pointer
 * Other Info:    None
 */

_kernel_oserror * flex_virtualstop(void);


/* ---------------------------- flex_lock ---------------------------------
 * Description:   lock pages in phyical ram.
 *
 * Parameters:    int start -- start address to lock
 *                int end   -- end   address to lock
 * Returns:       NULL if successful, otherwise an error pointer
 * Other Info:    None
 */

_kernel_oserror * flex_lock(int start,int end);


/* ---------------------------- flex_unlock ---------------------------------
 * Description:   unlock pages in phyical ram.
 *
 * Parameters:    int start -- start address to unlock
 *                int end   -- end   address to unlock
 * Returns:       NULL if successful, otherwise an error pointer
 * Other Info:    None
 */

_kernel_oserror * flex_unlock(int start,int end);



#ifdef __cplusplus
}
#endif
#endif

/* end flex.h */



00000000  2f 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |/***************|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000040  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0a 20 2a  |*************. *|
00000050  20 54 68 69 73 20 73 6f  75 72 63 65 20 66 69 6c  | This source fil|
00000060  65 20 77 61 73 20 77 72  69 74 74 65 6e 20 62 79  |e was written by|
00000070  20 41 63 6f 72 6e 20 43  6f 6d 70 75 74 65 72 73  | Acorn Computers|
00000080  20 4c 69 6d 69 74 65 64  2e 20 49 74 20 69 73 20  | Limited. It is |
00000090  70 61 72 74 20 6f 66 20  20 20 2a 0a 20 2a 20 74  |part of   *. * t|
000000a0  68 65 20 52 49 53 43 4f  53 20 6c 69 62 72 61 72  |he RISCOS librar|
000000b0  79 20 66 6f 72 20 77 72  69 74 69 6e 67 20 61 70  |y for writing ap|
000000c0  70 6c 69 63 61 74 69 6f  6e 73 20 69 6e 20 43 20  |plications in C |
000000d0  66 6f 72 20 52 49 53 43  20 4f 53 2e 20 49 74 20  |for RISC OS. It |
000000e0  6d 61 79 20 62 65 20 20  2a 0a 20 2a 20 75 73 65  |may be  *. * use|
000000f0  64 20 66 72 65 65 6c 79  20 69 6e 20 74 68 65 20  |d freely in the |
00000100  63 72 65 61 74 69 6f 6e  20 6f 66 20 70 72 6f 67  |creation of prog|
00000110  72 61 6d 73 20 66 6f 72  20 41 72 63 68 69 6d 65  |rams for Archime|
00000120  64 65 73 2e 20 49 74 20  73 68 6f 75 6c 64 20 62  |des. It should b|
00000130  65 20 20 20 20 20 2a 0a  20 2a 20 75 73 65 64 20  |e     *. * used |
00000140  77 69 74 68 20 41 63 6f  72 6e 27 73 20 43 20 43  |with Acorn's C C|
00000150  6f 6d 70 69 6c 65 72 20  52 65 6c 65 61 73 65 20  |ompiler Release |
00000160  33 20 6f 72 20 6c 61 74  65 72 2e 20 20 20 20 20  |3 or later.     |
00000170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000180  20 20 20 20 2a 0a 20 2a  20 20 20 20 20 20 20 20  |    *. *        |
00000190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000001d0  20 20 2a 0a 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  *. ***********|
000001e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000220  2f 0a 0a 2f 2a 0a 20 2a  20 54 69 74 6c 65 20 20  |/../*. * Title  |
00000230  3a 20 66 6c 65 78 2e 68  0a 20 2a 20 50 75 72 70  |: flex.h. * Purp|
00000240  6f 73 65 3a 20 70 72 6f  76 69 64 65 20 6d 65 6d  |ose: provide mem|
00000250  6f 72 79 20 61 6c 6c 6f  63 61 74 69 6f 6e 20 66  |ory allocation f|
00000260  6f 72 20 69 6e 74 65 72  61 63 74 69 76 65 20 70  |or interactive p|
00000270  72 6f 67 72 61 6d 73 20  72 65 71 75 69 72 69 6e  |rograms requirin|
00000280  67 0a 20 2a 20 20 20 20  20 20 20 20 20 20 6c 61  |g. *          la|
00000290  72 67 65 20 63 68 75 6e  6b 73 20 6f 66 20 73 74  |rge chunks of st|
000002a0  6f 72 65 2e 20 53 75 63  68 20 70 72 6f 67 72 61  |ore. Such progra|
000002b0  6d 73 20 6d 75 73 74 20  72 65 73 70 6f 6e 64 20  |ms must respond |
000002c0  74 6f 20 6d 65 6d 6f 72  79 0a 20 2a 20 20 20 20  |to memory. *    |
000002d0  20 20 20 20 20 20 66 75  6c 6c 20 65 72 72 6f 72  |      full error|
000002e0  73 2e 0a 20 2a 0a 20 2a  20 20 20 20 20 20 20 20  |s.. *. *        |
000002f0  20 20 4d 6f 64 69 66 69  65 64 20 62 79 20 41 6e  |  Modified by An|
00000300  64 79 20 41 72 6d 73 74  72 6f 6e 67 20 74 6f 20  |dy Armstrong to |
00000310  61 6c 6c 6f 77 20 74 68  65 20 75 73 65 20 6f 66  |allow the use of|
00000320  20 44 79 6e 61 6d 69 63  20 41 72 65 61 73 0a 20  | Dynamic Areas. |
00000330  2a 20 20 20 20 20 20 20  20 20 20 77 68 65 6e 20  |*          when |
00000340  75 73 65 64 20 6f 6e 20  61 20 52 69 73 63 20 50  |used on a Risc P|
00000350  43 2e 20 41 6c 73 6f 20  61 6c 6c 6f 77 73 20 61  |C. Also allows a|
00000360  20 63 61 6c 6c 62 61 63  6b 20 66 75 6e 63 74 69  | callback functi|
00000370  6f 6e 20 74 6f 20 62 65  0a 20 2a 20 20 20 20 20  |on to be. *     |
00000380  20 20 20 20 20 72 65 67  69 73 74 65 72 65 64 2e  |     registered.|
00000390  20 54 68 69 73 20 6e 6f  74 69 66 69 65 73 20 74  | This notifies t|
000003a0  68 65 20 61 70 70 6c 69  63 61 74 69 6f 6e 20 77  |he application w|
000003b0  68 65 6e 20 61 20 66 6c  65 78 20 62 6c 6f 63 6b  |hen a flex block|
000003c0  20 6d 6f 76 65 73 2e 0a  20 2a 0a 20 2a 20 20 20  | moves.. *. *   |
000003d0  20 20 20 20 20 20 20 46  75 72 74 68 65 72 20 6d  |       Further m|
000003e0  6f 64 69 66 69 65 64 20  62 79 20 44 61 76 69 64  |odified by David|
000003f0  20 4a 61 63 6b 73 6f 6e  20 74 6f 20 70 72 6f 76  | Jackson to prov|
00000400  69 64 65 20 61 6e 20 69  6e 74 65 72 66 61 63 65  |ide an interface|
00000410  20 77 69 74 68 20 0a 20  2a 20 20 20 20 20 20 20  | with . *       |
00000420  20 20 20 74 68 65 20 56  69 72 74 75 61 6c 69 73  |   the Virtualis|
00000430  65 20 6d 6f 64 75 6c 65  2e 20 0a 20 2a 0a 20 2a  |e module. . *. *|
00000440  20 20 20 20 20 20 20 20  20 20 4d 6f 64 69 66 69  |          Modifi|
00000450  65 64 20 61 67 61 69 6e  20 74 6f 20 77 6f 72 6b  |ed again to work|
00000460  20 77 69 74 68 20 41 63  6f 72 6e 20 54 6f 6f 6c  | with Acorn Tool|
00000470  62 6f 78 20 28 55 67 68  21 29 0a 20 2a 2f 0a 0a  |box (Ugh!). */..|
00000480  23 69 66 6e 64 65 66 20  5f 5f 66 6c 65 78 5f 68  |#ifndef __flex_h|
00000490  0a 23 64 65 66 69 6e 65  20 5f 5f 66 6c 65 78 5f  |.#define __flex_|
000004a0  68 0a 23 69 66 64 65 66  20 5f 5f 63 70 6c 75 73  |h.#ifdef __cplus|
000004b0  70 6c 75 73 0a 65 78 74  65 72 6e 20 22 43 22 20  |plus.extern "C" |
000004c0  7b 0a 23 65 6e 64 69 66  0a 74 79 70 65 64 65 66  |{.#endif.typedef|
000004d0  20 76 6f 69 64 20 2a 2a  66 6c 65 78 5f 70 74 72  | void **flex_ptr|
000004e0  3b 0a 0a 23 69 6e 63 6c  75 64 65 20 22 6b 65 72  |;..#include "ker|
000004f0  6e 65 6c 2e 68 22 0a 0a  23 64 65 66 69 6e 65 20  |nel.h"..#define |
00000500  66 6c 65 78 5f 43 41 4c  4c 42 41 43 4b 0a 0a 2f  |flex_CALLBACK../|
00000510  2a 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |* --------------|
00000520  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 20  |--------------- |
00000530  66 6c 65 78 5f 61 6c 6c  6f 63 20 2d 2d 2d 2d 2d  |flex_alloc -----|
00000540  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000550  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 20 2a 20 44 65  |----------. * De|
00000560  73 63 72 69 70 74 69 6f  6e 3a 20 20 20 41 6c 6c  |scription:   All|
00000570  6f 63 61 74 65 73 20 6e  20 62 79 74 65 73 20 6f  |ocates n bytes o|
00000580  66 20 73 74 6f 72 65 2c  20 6f 62 74 61 69 6e 65  |f store, obtaine|
00000590  64 20 66 72 6f 6d 20 74  68 65 20 57 69 6d 70 2e  |d from the Wimp.|
000005a0  0a 20 2a 0a 20 2a 20 50  61 72 61 6d 65 74 65 72  |. *. * Parameter|
000005b0  73 3a 20 20 20 20 66 6c  65 78 5f 70 74 72 20 61  |s:    flex_ptr a|
000005c0  6e 63 68 6f 72 20 2d 2d  20 74 6f 20 62 65 20 75  |nchor -- to be u|
000005d0  73 65 64 20 74 6f 20 61  63 63 65 73 73 20 61 6c  |sed to access al|
000005e0  6c 6f 63 61 74 65 64 20  73 74 6f 72 65 0a 20 2a  |located store. *|
000005f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000600  69 6e 74 20 6e 20 2d 2d  20 6e 75 6d 62 65 72 20  |int n -- number |
00000610  6f 66 20 62 79 74 65 73  20 74 6f 20 62 65 20 61  |of bytes to be a|
00000620  6c 6c 6f 63 61 74 65 64  0a 20 2a 20 52 65 74 75  |llocated. * Retu|
00000630  72 6e 73 3a 20 20 20 20  20 20 20 30 20 3d 3d 20  |rns:       0 == |
00000640  66 61 69 6c 75 72 65 2c  20 31 20 3d 3d 20 73 75  |failure, 1 == su|
00000650  63 63 65 73 73 0a 20 2a  20 4f 74 68 65 72 20 49  |ccess. * Other I|
00000660  6e 66 6f 3a 20 20 20 20  59 6f 75 20 73 68 6f 75  |nfo:    You shou|
00000670  6c 64 20 70 61 73 73 20  74 68 65 20 26 20 6f 66  |ld pass the & of|
00000680  20 61 20 70 6f 69 6e 74  65 72 20 76 61 72 69 61  | a pointer varia|
00000690  62 6c 65 20 61 73 20 74  68 65 20 66 69 72 73 74  |ble as the first|
000006a0  0a 20 2a 20 20 20 20 20  20 20 20 20 20 20 20 20  |. *             |
000006b0  20 20 20 70 61 72 61 6d  65 74 65 72 2e 20 54 68  |   parameter. Th|
000006c0  65 20 61 6c 6c 6f 63 61  74 65 64 20 73 74 6f 72  |e allocated stor|
000006d0  65 20 4d 55 53 54 20 74  68 65 6e 20 62 65 20 61  |e MUST then be a|
000006e0  63 63 65 73 73 65 64 0a  20 2a 20 20 20 20 20 20  |ccessed. *      |
000006f0  20 20 20 20 20 20 20 20  20 20 69 6e 64 69 72 65  |          indire|
00000700  63 74 6c 79 2c 20 74 68  72 6f 75 67 68 20 74 68  |ctly, through th|
00000710  69 73 2c 20 69 65 2e 20  28 2a 61 6e 63 68 6f 72  |is, ie. (*anchor|
00000720  29 5b 30 5d 20 2e 2e 28  2a 61 6e 63 68 6f 72 29  |)[0] ..(*anchor)|
00000730  5b 6e 5d 0a 20 2a 20 20  20 20 20 20 20 20 20 20  |[n]. *          |
00000740  20 20 20 20 20 20 54 68  69 73 20 69 73 20 69 6d  |      This is im|
00000750  70 6f 72 74 61 6e 74 20  73 69 6e 63 65 20 20 74  |portant since  t|
00000760  68 65 20 61 6c 6c 6f 63  61 74 65 64 20 73 74 6f  |he allocated sto|
00000770  72 65 20 6d 61 79 20 6c  61 74 65 72 20 62 65 0a  |re may later be.|
00000780  20 2a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | *              |
00000790  20 20 6d 6f 76 65 64 20  28 69 74 27 73 20 61 20  |  moved (it's a |
000007a0  73 68 69 66 74 69 6e 67  20 68 65 61 70 21 21 29  |shifting heap!!)|
000007b0  2e 20 49 66 20 74 68 65  72 65 27 73 20 6e 6f 74  |. If there's not|
000007c0  20 65 6e 6f 75 67 68 0a  20 2a 20 20 20 20 20 20  | enough. *      |
000007d0  20 20 20 20 20 20 20 20  20 20 73 74 6f 72 65 20  |          store |
000007e0  72 65 74 75 72 6e 73 20  7a 65 72 6f 20 6c 65 61  |returns zero lea|
000007f0  76 69 6e 67 20 61 6e 63  68 6f 72 20 75 6e 63 68  |ving anchor unch|
00000800  61 6e 67 65 64 2e 0a 20  2a 0a 20 2a 2f 0a 0a 69  |anged.. *. */..i|
00000810  6e 74 20 66 6c 65 78 5f  61 6c 6c 6f 63 28 66 6c  |nt flex_alloc(fl|
00000820  65 78 5f 70 74 72 20 61  6e 63 68 6f 72 2c 20 69  |ex_ptr anchor, i|
00000830  6e 74 20 6e 29 3b 0a 0a  0a 2f 2a 20 2d 2d 2d 2d  |nt n);.../* ----|
00000840  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000850  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 20 66 6c 65 78 5f  |---------- flex_|
00000860  66 72 65 65 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |free -----------|
00000870  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000880  2d 2d 2d 2d 0a 20 2a 20  44 65 73 63 72 69 70 74  |----. * Descript|
00000890  69 6f 6e 3a 20 20 20 46  72 65 65 73 20 74 68 65  |ion:   Frees the|
000008a0  20 70 72 65 76 69 6f 75  73 6c 79 20 61 6c 6c 6f  | previously allo|
000008b0  63 61 74 65 64 20 73 74  6f 72 65 2e 0a 20 2a 0a  |cated store.. *.|
000008c0  20 2a 20 50 61 72 61 6d  65 74 65 72 73 3a 20 20  | * Parameters:  |
000008d0  20 20 66 6c 65 78 5f 70  74 72 20 61 6e 63 68 6f  |  flex_ptr ancho|
000008e0  72 20 2d 2d 20 70 6f 69  6e 74 65 72 20 74 6f 20  |r -- pointer to |
000008f0  61 6c 6c 6f 63 61 74 65  64 20 73 74 6f 72 65 0a  |allocated store.|
00000900  20 2a 20 52 65 74 75 72  6e 73 3a 20 20 20 20 20  | * Returns:     |
00000910  20 20 76 6f 69 64 2e 0a  20 2a 20 4f 74 68 65 72  |  void.. * Other|
00000920  20 49 6e 66 6f 3a 20 20  20 20 2a 61 6e 63 68 6f  | Info:    *ancho|
00000930  72 20 77 69 6c 6c 20 62  65 20 73 65 74 20 74 6f  |r will be set to|
00000940  20 30 2e 0a 20 2a 0a 20  2a 2f 0a 0a 76 6f 69 64  | 0.. *. */..void|
00000950  20 66 6c 65 78 5f 66 72  65 65 28 66 6c 65 78 5f  | flex_free(flex_|
00000960  70 74 72 20 61 6e 63 68  6f 72 29 3b 0a 0a 0a 2f  |ptr anchor);.../|
00000970  2a 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |* --------------|
00000980  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000990  2d 20 66 6c 65 78 5f 73  69 7a 65 20 2d 2d 2d 2d  |- flex_size ----|
000009a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000009b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 20 2a 20 44 65  |----------. * De|
000009c0  73 63 72 69 70 74 69 6f  6e 3a 20 20 20 49 6e 66  |scription:   Inf|
000009d0  6f 72 6d 73 20 63 61 6c  6c 65 72 20 6f 66 20 74  |orms caller of t|
000009e0  68 65 20 6e 75 6d 62 65  72 20 6f 66 20 62 79 74  |he number of byt|
000009f0  65 73 20 61 6c 6c 6f 63  61 74 65 64 0a 20 2a 0a  |es allocated. *.|
00000a00  20 2a 20 50 61 72 61 6d  65 74 65 72 73 3a 20 20  | * Parameters:  |
00000a10  20 20 66 6c 65 78 5f 70  74 72 20 2d 2d 20 70 6f  |  flex_ptr -- po|
00000a20  69 6e 74 65 72 20 74 6f  20 61 6c 6c 6f 63 61 74  |inter to allocat|
00000a30  65 64 20 73 74 6f 72 65  0a 20 2a 20 52 65 74 75  |ed store. * Retu|
00000a40  72 6e 73 3a 20 20 20 20  20 20 20 6e 75 6d 62 65  |rns:       numbe|
00000a50  72 20 6f 66 20 61 6c 6c  6f 63 61 74 65 64 20 62  |r of allocated b|
00000a60  79 74 65 73 2e 20 0a 20  2a 20 4f 74 68 65 72 20  |ytes. . * Other |
00000a70  49 6e 66 6f 3a 20 20 20  20 4e 6f 6e 65 2e 0a 20  |Info:    None.. |
00000a80  2a 0a 20 2a 2f 0a 0a 69  6e 74 20 66 6c 65 78 5f  |*. */..int flex_|
00000a90  73 69 7a 65 28 66 6c 65  78 5f 70 74 72 29 3b 0a  |size(flex_ptr);.|
00000aa0  0a 0a 2f 2a 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |../* -----------|
00000ab0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000ac0  20 66 6c 65 78 5f 65 78  74 65 6e 64 20 2d 2d 2d  | flex_extend ---|
00000ad0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000ae0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 20 2a  |-------------. *|
00000af0  20 44 65 73 63 72 69 70  74 69 6f 6e 3a 20 20 20  | Description:   |
00000b00  45 78 74 65 6e 64 20 6f  74 20 74 72 75 6e 63 61  |Extend ot trunca|
00000b10  74 65 20 74 68 65 20 73  74 6f 72 65 20 61 72 65  |te the store are|
00000b20  61 20 74 6f 20 68 61 76  65 20 61 20 6e 65 77 20  |a to have a new |
00000b30  73 69 7a 65 2e 0a 20 2a  0a 20 2a 20 50 61 72 61  |size.. *. * Para|
00000b40  6d 65 74 65 72 73 3a 20  20 20 20 66 6c 65 78 5f  |meters:    flex_|
00000b50  70 74 72 20 2d 2d 20 70  6f 69 6e 74 65 72 20 74  |ptr -- pointer t|
00000b60  6f 20 61 6c 6c 6f 63 61  74 65 64 20 73 74 6f 72  |o allocated stor|
00000b70  65 0a 20 2a 20 20 20 20  20 20 20 20 20 20 20 20  |e. *            |
00000b80  20 20 20 20 69 6e 74 20  6e 65 77 73 69 7a 65 20  |    int newsize |
00000b90  2d 2d 20 6e 65 77 20 73  69 7a 65 20 6f 66 20 73  |-- new size of s|
00000ba0  74 6f 72 65 0a 20 2a 20  52 65 74 75 72 6e 73 3a  |tore. * Returns:|
00000bb0  20 20 20 20 20 20 20 30  20 3d 3d 20 66 61 69 6c  |       0 == fail|
00000bc0  75 72 65 2c 20 31 20 3d  3d 20 73 75 63 63 65 73  |ure, 1 == succes|
00000bd0  73 2e 0a 20 2a 20 4f 74  68 65 72 20 49 6e 66 6f  |s.. * Other Info|
00000be0  3a 20 20 20 20 4e 6f 6e  65 2e 0a 20 2a 0a 20 2a  |:    None.. *. *|
00000bf0  2f 0a 0a 69 6e 74 20 66  6c 65 78 5f 65 78 74 65  |/..int flex_exte|
00000c00  6e 64 28 66 6c 65 78 5f  70 74 72 2c 20 69 6e 74  |nd(flex_ptr, int|
00000c10  20 6e 65 77 73 69 7a 65  29 3b 0a 0a 0a 2f 2a 20  | newsize);.../* |
00000c20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000c30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 20 66 6c 65 78  |----------- flex|
00000c40  5f 6d 69 64 65 78 74 65  6e 64 20 2d 2d 2d 2d 2d  |_midextend -----|
00000c50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000c60  2d 2d 2d 2d 2d 2d 2d 2d  0a 20 2a 20 44 65 73 63  |--------. * Desc|
00000c70  72 69 70 74 69 6f 6e 3a  20 20 20 45 78 74 65 6e  |ription:   Exten|
00000c80  64 20 6f 72 20 74 72 75  6e 63 61 74 65 20 73 74  |d or truncate st|
00000c90  6f 72 65 2c 20 61 74 20  61 6e 79 20 70 6f 69 6e  |ore, at any poin|
00000ca0  74 2e 0a 20 2a 0a 20 2a  20 50 61 72 61 6d 65 74  |t.. *. * Paramet|
00000cb0  65 72 73 3a 20 20 20 20  66 6c 65 78 5f 70 74 72  |ers:    flex_ptr|
00000cc0  20 2d 2d 20 70 6f 69 6e  74 65 72 20 74 6f 20 61  | -- pointer to a|
00000cd0  6c 6c 6f 63 61 74 65 64  20 73 74 6f 72 65 0a 20  |llocated store. |
00000ce0  2a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |*               |
00000cf0  20 69 6e 74 20 61 74 20  2d 2d 20 6c 6f 63 61 74  | int at -- locat|
00000d00  69 6f 6e 20 77 69 74 68  69 6e 20 74 68 65 20 61  |ion within the a|
00000d10  6c 6c 6f 63 61 74 65 64  20 73 74 6f 72 65 0a 20  |llocated store. |
00000d20  2a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |*               |
00000d30  20 69 6e 74 20 62 79 20  2d 2d 20 65 78 74 65 6e  | int by -- exten|
00000d40  74 0a 20 2a 20 52 65 74  75 72 6e 73 3a 20 20 20  |t. * Returns:   |
00000d50  20 20 20 20 30 20 3d 3d  20 66 61 69 6c 75 72 65  |    0 == failure|
00000d60  2c 20 31 20 3d 3d 20 73  75 63 63 65 73 73 0a 20  |, 1 == success. |
00000d70  2a 20 4f 74 68 65 72 20  49 6e 66 6f 3a 20 20 20  |* Other Info:   |
00000d80  20 49 66 20 62 79 20 69  73 20 2b 76 65 2c 20 74  | If by is +ve, t|
00000d90  68 65 6e 20 73 74 6f 72  65 20 69 73 20 65 78 74  |hen store is ext|
00000da0  65 6e 64 65 64 2c 20 61  6e 64 20 6c 6f 63 61 74  |ended, and locat|
00000db0  69 6f 6e 73 20 61 62 6f  76 65 0a 20 2a 20 20 20  |ions above. *   |
00000dc0  20 20 20 20 20 20 20 20  20 20 20 20 20 22 61 74  |             "at|
00000dd0  22 20 61 72 65 20 63 6f  70 69 65 64 20 75 70 20  |" are copied up |
00000de0  62 79 20 22 62 79 22 2e  0a 20 2a 20 20 20 20 20  |by "by".. *     |
00000df0  20 20 20 20 20 20 20 20  20 20 20 49 66 20 62 79  |           If by|
00000e00  20 69 73 20 2d 76 65 2c  20 74 68 65 6e 20 73 74  | is -ve, then st|
00000e10  6f 72 65 20 69 73 20 72  65 64 75 63 65 64 2c 20  |ore is reduced, |
00000e20  61 6e 64 20 61 6e 79 20  62 79 74 65 73 20 62 65  |and any bytes be|
00000e30  79 6f 6e 64 0a 20 2a 20  20 20 20 20 20 20 20 20  |yond. *         |
00000e40  20 20 20 20 20 20 20 22  61 74 22 20 61 72 65 20  |       "at" are |
00000e50  63 6f 70 69 65 64 20 64  6f 77 6e 20 74 6f 20 22  |copied down to "|
00000e60  61 74 22 2b 22 62 79 22  2e 0a 20 2a 0a 20 2a 2f  |at"+"by".. *. */|
00000e70  0a 0a 69 6e 74 20 66 6c  65 78 5f 6d 69 64 65 78  |..int flex_midex|
00000e80  74 65 6e 64 28 66 6c 65  78 5f 70 74 72 2c 20 69  |tend(flex_ptr, i|
00000e90  6e 74 20 61 74 2c 20 69  6e 74 20 62 79 29 3b 0a  |nt at, int by);.|
00000ea0  0a 23 69 66 64 65 66 20  66 6c 65 78 5f 43 41 4c  |.#ifdef flex_CAL|
00000eb0  4c 42 41 43 4b 0a 0a 2f  2a 20 41 41 3a 20 33 30  |LBACK../* AA: 30|
00000ec0  2e 39 2e 39 34 20 2a 2f  0a 0a 2f 2a 20 2d 2d 2d  |.9.94 */../* ---|
00000ed0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000ee0  2d 2d 2d 2d 2d 2d 2d 2d  20 66 6c 65 78 5f 63 62  |-------- flex_cb|
00000ef0  66 75 6e 63 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |func -----------|
00000f00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000f10  2d 2d 2d 2d 2d 0a 20 2a  20 41 20 66 75 6e 63 74  |-----. * A funct|
00000f20  69 6f 6e 20 6f 66 20 74  68 69 73 20 74 79 70 65  |ion of this type|
00000f30  20 6d 61 79 20 62 65 20  72 65 67 69 73 74 65 72  | may be register|
00000f40  65 64 20 66 6f 72 20 65  61 63 68 20 66 6c 65 78  |ed for each flex|
00000f50  20 62 6c 6f 63 6b 20 73  6f 20 74 68 61 74 0a 20  | block so that. |
00000f60  2a 20 74 68 65 20 6f 77  6e 65 72 20 6f 66 20 74  |* the owner of t|
00000f70  68 65 20 62 6c 6f 63 6b  20 63 61 6e 20 62 65 20  |he block can be |
00000f80  6e 6f 74 69 66 69 65 64  20 77 68 65 6e 20 74 68  |notified when th|
00000f90  65 20 62 6c 6f 63 6b 20  6d 6f 76 65 73 0a 20 2a  |e block moves. *|
00000fa0  2f 0a 0a 74 79 70 65 64  65 66 20 76 6f 69 64 20  |/..typedef void |
00000fb0  28 2a 66 6c 65 78 5f 63  62 66 75 6e 63 29 28 42  |(*flex_cbfunc)(B|
00000fc0  4f 4f 4c 20 62 34 2c 20  76 6f 69 64 20 2a 68 61  |OOL b4, void *ha|
00000fd0  6e 64 6c 65 29 3b 0a 0a  2f 2a 20 2d 2d 2d 2d 2d  |ndle);../* -----|
00000fe0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000ff0  2d 2d 2d 2d 2d 2d 20 66  6c 65 78 5f 72 65 67 69  |------ flex_regi|
00001000  73 74 65 72 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ster -----------|
00001010  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001020  2d 2d 2d 2d 0a 20 2a 20  52 65 67 69 73 74 65 72  |----. * Register|
00001030  20 74 68 65 20 66 75 6e  63 74 69 6f 6e 20 74 6f  | the function to|
00001040  20 62 65 20 63 61 6c 6c  65 64 20 77 68 65 6e 20  | be called when |
00001050  61 20 62 6c 6f 63 6b 20  6f 66 20 6d 6f 76 65 73  |a block of moves|
00001060  0a 20 2a 2f 0a 0a 76 6f  69 64 20 66 6c 65 78 5f  |. */..void flex_|
00001070  72 65 67 69 73 74 65 72  28 66 6c 65 78 5f 70 74  |register(flex_pt|
00001080  72 20 61 6e 63 68 6f 72  2c 20 66 6c 65 78 5f 63  |r anchor, flex_c|
00001090  62 66 75 6e 63 20 63 62  2c 20 76 6f 69 64 20 2a  |bfunc cb, void *|
000010a0  68 61 6e 64 6c 65 29 3b  0a 0a 23 65 6e 64 69 66  |handle);..#endif|
000010b0  0a 0a 0a 2f 2a 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.../* ----------|
000010c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000010d0  2d 2d 20 66 6c 65 78 5f  62 75 64 67 65 20 2d 2d  |-- flex_budge --|
000010e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000010f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 20  |--------------. |
00001100  2a 20 44 65 73 63 72 69  70 74 69 6f 6e 3a 20 20  |* Description:  |
00001110  20 20 46 75 6e 63 74 69  6f 6e 20 74 6f 20 6d 6f  |  Function to mo|
00001120  76 65 20 66 6c 65 78 20  73 74 6f 72 65 2c 20 77  |ve flex store, w|
00001130  68 65 6e 20 74 68 65 20  43 20 6c 69 62 72 61 72  |hen the C librar|
00001140  79 20 6e 65 65 64 73 0a  20 2a 20 20 20 20 20 20  |y needs. *      |
00001150  20 20 20 20 20 20 20 20  20 20 20 74 6f 20 65 78  |           to ex|
00001160  74 65 6e 64 20 74 68 65  20 68 65 61 70 2e 0a 20  |tend the heap.. |
00001170  2a 0a 20 2a 20 50 61 72  61 6d 65 74 65 72 73 3a  |*. * Parameters:|
00001180  20 20 20 20 20 69 6e 74  20 6e 20 2d 2d 20 6e 75  |     int n -- nu|
00001190  6d 62 65 72 20 6f 66 20  62 79 74 65 73 20 6e 65  |mber of bytes ne|
000011a0  65 64 65 64 20 62 79 20  43 20 6c 69 62 72 61 72  |eded by C librar|
000011b0  79 0a 20 2a 20 20 20 20  20 20 20 20 20 20 20 20  |y. *            |
000011c0  20 20 20 20 20 76 6f 69  64 20 2a 2a 61 20 2d 2d  |     void **a --|
000011d0  20 61 64 64 72 65 73 73  20 6f 66 20 61 63 71 75  | address of acqu|
000011e0  69 72 65 64 20 73 74 6f  72 65 2e 20 20 0a 20 2a  |ired store.  . *|
000011f0  20 52 65 74 75 72 6e 73  3a 20 20 20 20 20 20 20  | Returns:       |
00001200  20 61 6d 6f 75 6e 74 20  6f 66 20 73 74 6f 72 65  | amount of store|
00001210  20 61 63 71 75 69 72 65  64 2e 0a 20 2a 20 4f 74  | acquired.. * Ot|
00001220  68 65 72 20 49 6e 66 6f  3a 20 20 20 20 20 44 6f  |her Info:     Do|
00001230  6e 27 74 20 63 61 6c 6c  20 74 68 69 73 20 66 75  |n't call this fu|
00001240  6e 63 74 69 6f 6e 20 64  69 72 65 63 74 6c 79 2c  |nction directly,|
00001250  20 62 75 74 20 72 65 67  69 73 74 65 72 20 69 74  | but register it|
00001260  20 0a 20 2a 20 20 20 20  20 20 20 20 20 20 20 20  | . *            |
00001270  20 20 20 20 20 77 69 74  68 20 74 68 65 20 43 20  |     with the C |
00001280  6c 69 62 72 61 72 79 20  76 69 61 3a 0a 20 2a 20  |library via:. * |
00001290  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000012a0  20 20 20 5f 6b 65 72 6e  65 6c 5f 72 65 67 69 73  |   _kernel_regis|
000012b0  74 65 72 5f 73 6c 6f 74  65 78 74 65 6e 64 28 66  |ter_slotextend(f|
000012c0  6c 65 78 5f 62 75 64 67  65 29 3b 0a 20 2a 20 20  |lex_budge);. *  |
000012d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 54  |               T|
000012e0  68 69 73 20 77 69 6c 6c  20 63 61 75 73 65 20 66  |his will cause f|
000012f0  6c 65 78 20 73 74 6f 72  65 20 74 6f 20 62 65 20  |lex store to be |
00001300  6d 6f 76 65 64 20 75 70  20 69 66 20 74 68 65 20  |moved up if the |
00001310  43 0a 20 2a 20 20 20 20  20 20 20 20 20 20 20 20  |C. *            |
00001320  20 20 20 20 20 6c 69 62  72 61 72 79 20 6e 65 65  |     library nee|
00001330  64 73 20 74 6f 20 65 78  74 65 6e 64 20 74 68 65  |ds to extend the|
00001340  20 68 65 61 70 2e 20 20  4e 6f 74 65 20 74 68 61  | heap.  Note tha|
00001350  74 20 69 6e 20 74 68 69  73 20 0a 20 2a 20 20 20  |t in this . *   |
00001360  20 20 20 20 20 20 20 20  20 20 20 20 20 20 73 74  |              st|
00001370  61 74 65 2c 20 79 6f 75  20 63 61 6e 20 6f 6e 6c  |ate, you can onl|
00001380  79 20 72 65 6c 79 20 6f  6e 20 70 6f 69 6e 74 65  |y rely on pointe|
00001390  72 73 20 69 6e 74 6f 20  66 6c 65 78 20 62 6c 6f  |rs into flex blo|
000013a0  63 6b 73 20 0a 20 2a 20  20 20 20 20 20 20 20 20  |cks . *         |
000013b0  20 20 20 20 20 20 20 20  61 63 72 6f 73 73 20 66  |        across f|
000013c0  75 6e 63 74 69 6f 6e 20  63 61 6c 6c 73 20 77 68  |unction calls wh|
000013d0  69 63 68 20 64 6f 20 6e  6f 74 20 65 78 74 65 6e  |ich do not exten|
000013e0  64 20 74 68 65 20 73 74  61 63 6b 20 61 6e 64 20  |d the stack and |
000013f0  0a 20 2a 20 20 20 20 20  20 20 20 20 20 20 20 20  |. *             |
00001400  20 20 20 20 64 6f 20 6e  6f 74 20 63 61 6c 6c 20  |    do not call |
00001410  6d 61 6c 6c 6f 63 2e 0a  20 2a 20 20 20 20 20 20  |malloc.. *      |
00001420  20 20 20 20 20 20 20 20  20 20 20 54 68 65 20 64  |           The d|
00001430  65 66 61 75 6c 74 20 73  74 61 74 65 20 69 73 20  |efault state is |
00001440  66 6c 65 78 5f 64 6f 6e  74 5f 62 75 64 67 65 2c  |flex_dont_budge,|
00001450  20 73 6f 2c 20 69 66 20  72 65 71 75 69 72 65 64  | so, if required|
00001460  2c 20 0a 20 2a 20 20 20  20 20 20 20 20 20 20 20  |, . *           |
00001470  20 20 20 20 20 20 74 68  69 73 20 66 75 6e 63 74  |      this funct|
00001480  69 6f 6e 20 73 68 6f 75  6c 64 20 62 65 20 72 65  |ion should be re|
00001490  67 69 73 74 65 72 65 64  20 41 46 54 45 52 20 63  |gistered AFTER c|
000014a0  61 6c 6c 69 6e 67 20 0a  20 2a 20 20 20 20 20 20  |alling . *      |
000014b0  20 20 20 20 20 20 20 20  20 20 20 66 6c 65 78 5f  |           flex_|
000014c0  69 6e 69 74 28 29 2e 0a  20 2a 0a 20 2a 2f 0a 0a  |init().. *. */..|
000014d0  65 78 74 65 72 6e 20 69  6e 74 20 66 6c 65 78 5f  |extern int flex_|
000014e0  62 75 64 67 65 28 69 6e  74 20 6e 2c 20 76 6f 69  |budge(int n, voi|
000014f0  64 20 2a 2a 61 29 3b 0a  0a 0a 2f 2a 20 2d 2d 2d  |d **a);.../* ---|
00001500  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001510  2d 2d 2d 2d 2d 2d 2d 20  66 6c 65 78 5f 64 6f 6e  |------- flex_don|
00001520  74 5f 62 75 64 67 65 20  2d 2d 2d 2d 2d 2d 2d 2d  |t_budge --------|
00001530  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001540  2d 2d 2d 2d 2d 0a 20 2a  20 44 65 73 63 72 69 70  |-----. * Descrip|
00001550  74 69 6f 6e 3a 20 20 20  46 75 6e 63 74 69 6f 6e  |tion:   Function|
00001560  20 74 6f 20 72 65 66 75  73 65 20 74 6f 20 6d 6f  | to refuse to mo|
00001570  76 65 20 66 6c 65 78 20  73 74 6f 72 65 2c 20 77  |ve flex store, w|
00001580  68 65 6e 20 74 68 65 20  43 20 6c 69 62 72 61 72  |hen the C librar|
00001590  79 20 0a 20 2a 20 20 20  20 20 20 20 20 20 20 20  |y . *           |
000015a0  20 20 20 20 20 6e 65 65  64 73 20 74 6f 20 65 78  |     needs to ex|
000015b0  74 65 6e 64 20 74 68 65  20 68 65 61 70 2e 0a 20  |tend the heap.. |
000015c0  2a 0a 20 2a 20 50 61 72  61 6d 65 74 65 72 73 3a  |*. * Parameters:|
000015d0  20 20 20 20 69 6e 74 20  6e 20 2d 2d 20 6e 75 6d  |    int n -- num|
000015e0  62 65 72 20 6f 66 20 62  79 74 65 73 20 6e 65 65  |ber of bytes nee|
000015f0  64 65 64 20 62 79 20 43  20 6c 69 62 72 61 72 79  |ded by C library|
00001600  0a 20 2a 20 20 20 20 20  20 20 20 20 20 20 20 20  |. *             |
00001610  20 20 20 76 6f 69 64 20  2a 2a 61 20 2d 2d 20 61  |   void **a -- a|
00001620  64 64 72 65 73 73 20 6f  66 20 61 63 71 75 69 72  |ddress of acquir|
00001630  65 64 20 73 74 6f 72 65  2e 0a 20 2a 20 52 65 74  |ed store.. * Ret|
00001640  75 72 6e 73 3a 20 20 20  20 20 20 20 61 6d 6f 75  |urns:       amou|
00001650  6e 74 20 6f 66 20 73 74  6f 72 65 20 61 63 71 75  |nt of store acqu|
00001660  69 72 65 64 20 28 61 6c  77 61 79 73 20 30 29 2e  |ired (always 0).|
00001670  0a 20 2a 20 4f 74 68 65  72 20 49 6e 66 6f 3a 20  |. * Other Info: |
00001680  20 20 20 44 6f 6e 27 74  20 63 61 6c 6c 20 74 68  |   Don't call th|
00001690  69 73 20 66 75 6e 63 74  69 6f 6e 20 64 69 72 65  |is function dire|
000016a0  63 74 6c 79 2c 20 62 75  74 20 72 65 67 69 73 74  |ctly, but regist|
000016b0  65 72 20 69 74 20 0a 20  2a 20 20 20 20 20 20 20  |er it . *       |
000016c0  20 20 20 20 20 20 20 20  20 77 69 74 68 20 74 68  |         with th|
000016d0  65 20 43 20 6c 69 62 72  61 72 79 20 76 69 61 3a  |e C library via:|
000016e0  0a 20 2a 20 20 20 20 20  20 20 20 20 20 20 20 20  |. *             |
000016f0  20 20 20 20 20 20 5f 6b  65 72 6e 65 6c 5f 72 65  |      _kernel_re|
00001700  67 69 73 74 65 72 5f 73  6c 6f 74 65 78 74 65 6e  |gister_slotexten|
00001710  64 28 66 6c 65 78 5f 64  6f 6e 74 5f 62 75 64 67  |d(flex_dont_budg|
00001720  65 29 3b 0a 20 2a 20 20  20 20 20 20 20 20 20 20  |e);. *          |
00001730  20 20 20 20 20 20 49 66  20 74 68 65 20 43 20 6c  |      If the C l|
00001740  69 62 72 61 72 79 20 6e  65 65 64 73 20 74 6f 20  |ibrary needs to |
00001750  65 78 74 65 6e 64 20 74  68 65 20 68 65 61 70 2c  |extend the heap,|
00001760  20 66 6c 65 78 20 77 69  6c 6c 20 0a 20 2a 20 20  | flex will . *  |
00001770  20 20 20 20 20 20 20 20  20 20 20 20 20 20 72 65  |              re|
00001780  66 75 73 65 20 74 6f 20  6d 6f 76 65 2e 20 54 68  |fuse to move. Th|
00001790  69 73 20 6d 65 61 6e 73  20 74 68 61 74 20 79 6f  |is means that yo|
000017a0  75 20 63 61 6e 20 72 65  6c 79 20 6f 6e 20 70 6f  |u can rely on po|
000017b0  69 6e 74 65 72 73 20 0a  20 2a 20 20 20 20 20 20  |inters . *      |
000017c0  20 20 20 20 20 20 20 20  20 20 69 6e 74 6f 20 66  |          into f|
000017d0  6c 65 78 20 62 6c 6f 63  6b 73 20 61 63 72 6f 73  |lex blocks acros|
000017e0  73 20 66 75 6e 63 74 69  6f 6e 20 63 61 6c 6c 73  |s function calls|
000017f0  2e 0a 20 2a 20 20 20 20  20 20 20 20 20 20 20 20  |.. *            |
00001800  20 20 20 20 54 68 69 73  20 69 73 20 74 68 65 20  |    This is the |
00001810  44 45 46 41 55 4c 54 20  73 74 61 74 65 20 61 66  |DEFAULT state af|
00001820  74 65 72 20 66 6c 65 78  5f 69 6e 69 74 28 29 2e  |ter flex_init().|
00001830  0a 20 2a 0a 20 2a 2f 0a  0a 65 78 74 65 72 6e 20  |. *. */..extern |
00001840  69 6e 74 20 66 6c 65 78  5f 64 6f 6e 74 5f 62 75  |int flex_dont_bu|
00001850  64 67 65 28 69 6e 74 20  6e 2c 20 76 6f 69 64 20  |dge(int n, void |
00001860  2a 2a 61 29 3b 0a 0a 0a  0a 2f 2a 20 2d 2d 2d 2d  |**a);..../* ----|
00001870  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001880  2d 2d 2d 2d 2d 2d 2d 2d  20 66 6c 65 78 5f 69 6e  |-------- flex_in|
00001890  69 74 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |it -------------|
000018a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000018b0  2d 2d 2d 2d 0a 20 2a 20  44 65 73 63 72 69 70 74  |----. * Descript|
000018c0  69 6f 6e 3a 20 20 20 49  6e 69 74 69 61 6c 69 73  |ion:   Initialis|
000018d0  65 20 73 74 6f 72 65 20  61 6c 6c 6f 63 61 74 69  |e store allocati|
000018e0  6f 6e 20 6d 6f 64 75 6c  65 2e 0a 20 2a 0a 20 2a  |on module.. *. *|
000018f0  20 50 61 72 61 6d 65 74  65 72 73 3a 20 20 20 20  | Parameters:    |
00001900  63 68 61 72 20 2a 70 72  6f 67 72 61 6d 5f 6e 61  |char *program_na|
00001910  6d 65 20 2d 20 6e 61 6d  65 20 6f 66 20 70 72 6f  |me - name of pro|
00001920  67 72 61 6d 0a 20 2a 20  20 20 20 20 20 20 20 20  |gram. *         |
00001930  20 20 20 20 20 20 20 69  6e 74 20 20 2a 65 72 72  |       int  *err|
00001940  6f 72 5f 66 64 20 20 20  20 20 2d 20 6d 65 73 73  |or_fd     - mess|
00001950  61 67 65 73 20 66 69 6c  65 20 66 64 2e 0a 20 2a  |ages file fd.. *|
00001960  20 52 65 74 75 72 6e 73  3a 20 20 20 20 20 20 20  | Returns:       |
00001970  76 6f 69 64 2e 0a 20 2a  20 4f 74 68 65 72 20 49  |void.. * Other I|
00001980  6e 66 6f 3a 20 20 20 20  4d 75 73 74 20 62 65 20  |nfo:    Must be |
00001990  63 61 6c 6c 65 64 20 62  65 66 6f 72 65 20 61 6e  |called before an|
000019a0  79 20 6f 74 68 65 72 20  66 75 6e 63 74 69 6f 6e  |y other function|
000019b0  73 20 69 6e 20 74 68 69  73 20 6d 6f 64 75 6c 65  |s in this module|
000019c0  2e 0a 20 2a 20 20 20 20  20 20 20 20 20 20 20 20  |.. *            |
000019d0  20 20 20 20 70 72 6f 67  72 61 6d 5f 6e 61 6d 65  |    program_name|
000019e0  20 6d 75 73 74 20 70 6f  69 6e 74 20 61 74 20 61  | must point at a|
000019f0  20 63 68 61 72 61 63 74  65 72 20 73 74 72 69 6e  | character strin|
00001a00  67 0a 20 2a 20 20 20 20  20 20 20 20 20 20 20 20  |g. *            |
00001a10  20 20 20 20 77 68 6f 73  65 20 6c 69 66 65 74 69  |    whose lifeti|
00001a20  6d 65 20 69 73 20 74 68  65 20 65 6e 74 69 72 65  |me is the entire|
00001a30  20 70 72 6f 67 72 61 6d  20 28 65 67 20 61 20 73  | program (eg a s|
00001a40  74 72 69 6e 67 0a 20 2a  20 20 20 20 20 20 20 20  |tring. *        |
00001a50  20 20 20 20 20 20 20 20  6c 69 74 65 72 61 6c 2c  |        literal,|
00001a60  20 6f 72 20 73 74 61 74  69 63 20 62 75 66 66 65  | or static buffe|
00001a70  72 29 2e 0a 20 2a 20 20  20 20 20 20 20 20 20 20  |r).. *          |
00001a80  20 20 20 20 20 20 65 72  72 6f 72 5f 66 64 20 69  |      error_fd i|
00001a90  73 20 61 20 70 6f 69 6e  74 65 72 20 74 6f 20 61  |s a pointer to a|
00001aa0  20 66 69 6c 65 20 64 65  73 63 72 69 70 74 6f 72  | file descriptor|
00001ab0  20 61 73 20 72 65 74 75  72 6e 65 64 0a 20 2a 20  | as returned. * |
00001ac0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 62  |               b|
00001ad0  79 20 4d 65 73 73 61 67  65 54 72 61 6e 73 5f 4f  |y MessageTrans_O|
00001ae0  70 65 6e 46 69 6c 65 20  2d 20 69 74 20 77 69 6c  |penFile - it wil|
00001af0  6c 20 62 65 20 75 73 65  64 20 74 6f 20 72 65 70  |l be used to rep|
00001b00  6f 72 74 20 66 6c 65 78  0a 20 2a 20 20 20 20 20  |ort flex. *     |
00001b10  20 20 20 20 20 20 20 20  20 20 20 65 72 72 6f 72  |           error|
00001b20  73 2e 20 20 49 66 20 69  74 20 69 73 20 30 2c 20  |s.  If it is 0, |
00001b30  74 68 65 6e 20 45 6e 67  6c 69 73 68 20 64 65 66  |then English def|
00001b40  61 75 6c 74 20 6d 65 73  73 61 67 65 73 20 61 72  |ault messages ar|
00001b50  65 20 75 73 65 64 2e 20  0a 20 2a 0a 20 2a 2f 0a  |e used. . *. */.|
00001b60  0a 76 6f 69 64 20 66 6c  65 78 5f 69 6e 69 74 28  |.void flex_init(|
00001b70  63 68 61 72 20 2a 70 72  6f 67 72 61 6d 5f 6e 61  |char *program_na|
00001b80  6d 65 2c 20 69 6e 74 20  2a 65 72 72 6f 72 5f 66  |me, int *error_f|
00001b90  64 29 3b 0a 0a 0a 0a 2f  2a 20 2d 2d 2d 2d 2d 2d  |d);..../* ------|
00001ba0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001bb0  2d 2d 2d 2d 2d 2d 20 66  6c 65 78 5f 69 6e 69 74  |------ flex_init|
00001bc0  78 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |x --------------|
00001bd0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001be0  2d 2d 2d 0a 20 2a 20 44  65 73 63 72 69 70 74 69  |---. * Descripti|
00001bf0  6f 6e 3a 20 20 20 49 6e  69 74 69 61 6c 69 73 65  |on:   Initialise|
00001c00  20 73 74 6f 72 65 20 61  6c 6c 6f 63 61 74 69 6f  | store allocatio|
00001c10  6e 20 6d 6f 64 75 6c 65  2e 0a 20 2a 0a 20 2a 20  |n module.. *. * |
00001c20  50 61 72 61 6d 65 74 65  72 73 3a 20 20 20 20 63  |Parameters:    c|
00001c30  68 61 72 20 2a 70 72 6f  67 72 61 6d 5f 6e 61 6d  |har *program_nam|
00001c40  65 20 2d 20 6e 61 6d 65  20 6f 66 20 70 72 6f 67  |e - name of prog|
00001c50  72 61 6d 0a 20 2a 20 20  20 20 20 20 20 20 20 20  |ram. *          |
00001c60  20 20 20 20 20 20 69 6e  74 20 20 2a 65 72 72 6f  |      int  *erro|
00001c70  72 5f 66 64 20 20 20 20  20 2d 20 6d 65 73 73 61  |r_fd     - messa|
00001c80  67 65 73 20 66 69 6c 65  20 66 64 2e 0a 20 2a 20  |ges file fd.. * |
00001c90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 42  |               B|
00001ca0  4f 4f 4c 20 64 61 20 20  20 20 20 20 2d 2d 20 54  |OOL da      -- T|
00001cb0  52 55 45 3d 75 73 65 20  64 79 6e 61 6d 69 63 20  |RUE=use dynamic |
00001cc0  61 72 65 61 73 20 69 66  20 61 76 61 69 6c 61 62  |areas if availab|
00001cd0  6c 65 2e 0a 20 2a 20 20  20 20 20 20 20 20 20 20  |le.. *          |
00001ce0  20 20 20 20 20 20 69 6e  74 20 20 6d 61 78 73 69  |      int  maxsi|
00001cf0  7a 65 20 2d 2d 20 4d 61  78 69 6d 75 6d 20 73 69  |ze -- Maximum si|
00001d00  7a 65 20 6f 66 20 64 79  6e 61 6d 69 63 20 61 72  |ze of dynamic ar|
00001d10  65 61 2e 0a 20 2a 20 20  20 20 20 20 20 20 20 20  |ea.. *          |
00001d20  20 20 20 20 20 20 42 4f  4f 4c 20 76 69 72 74 75  |      BOOL virtu|
00001d30  61 6c 20 2d 2d 20 54 52  55 45 20 6d 65 61 6e 73  |al -- TRUE means|
00001d40  20 75 73 65 20 76 69 72  74 75 61 6c 20 6d 65 6d  | use virtual mem|
00001d50  6f 72 79 2e 0a 20 2a 20  20 20 20 20 20 20 20 20  |ory.. *         |
00001d60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001d70  20 20 20 20 20 20 20 49  66 20 63 61 6c 6c 65 64  |       If called|
00001d80  20 77 69 74 68 20 76 69  72 74 75 61 6c 20 3d 20  | with virtual = |
00001d90  46 41 4c 53 45 2c 20 76  69 72 74 75 61 6c 0a 20  |FALSE, virtual. |
00001da0  2a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |*               |
00001db0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001dc0  20 6d 65 6d 6f 72 79 20  63 61 6e 20 62 65 20 73  | memory can be s|
00001dd0  77 69 74 63 68 65 64 20  6f 6e 20 77 69 74 68 20  |witched on with |
00001de0  0a 20 2a 20 20 20 20 20  20 20 20 20 20 20 20 20  |. *             |
00001df0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001e00  20 20 20 66 6c 65 78 5f  76 69 72 74 75 61 6c 73  |   flex_virtuals|
00001e10  74 61 72 74 0a 20 2a 20  52 65 74 75 72 6e 73 3a  |tart. * Returns:|
00001e20  20 20 20 20 20 20 20 76  6f 69 64 2e 0a 20 2a 20  |       void.. * |
00001e30  4f 74 68 65 72 20 49 6e  66 6f 3a 20 20 20 20 4d  |Other Info:    M|
00001e40  75 73 74 20 62 65 20 63  61 6c 6c 65 64 20 62 65  |ust be called be|
00001e50  66 6f 72 65 20 61 6e 79  20 6f 74 68 65 72 20 66  |fore any other f|
00001e60  75 6e 63 74 69 6f 6e 73  20 69 6e 20 74 68 69 73  |unctions in this|
00001e70  20 6d 6f 64 75 6c 65 2e  0a 20 2a 20 20 20 20 20  | module.. *     |
00001e80  20 20 20 20 20 20 20 20  20 20 20 4d 61 79 20 62  |           May b|
00001e90  65 20 72 65 70 6c 61 63  65 64 20 62 79 20 66 6c  |e replaced by fl|
00001ea0  65 78 5f 69 6e 69 74 0a  20 2a 2f 0a 0a 0a 76 6f  |ex_init. */...vo|
00001eb0  69 64 20 66 6c 65 78 5f  69 6e 69 74 78 28 63 68  |id flex_initx(ch|
00001ec0  61 72 20 2a 70 72 6f 67  72 61 6d 5f 6e 61 6d 65  |ar *program_name|
00001ed0  2c 20 69 6e 74 20 2a 65  72 72 6f 72 5f 66 64 2c  |, int *error_fd,|
00001ee0  42 4f 4f 4c 20 64 61 2c  69 6e 74 20 6d 61 78 73  |BOOL da,int maxs|
00001ef0  69 7a 65 2c 42 4f 4f 4c  20 76 69 72 74 75 61 6c  |ize,BOOL virtual|
00001f00  29 3b 0a 0a 2f 2a 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |);../* ---------|
00001f10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001f20  2d 2d 2d 20 66 6c 65 78  5f 69 73 64 79 6e 61 6d  |--- flex_isdynam|
00001f30  69 63 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ic -------------|
00001f40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001f50  2d 2d 2d 2d 0a 20 2a 20  44 65 73 63 72 69 70 74  |----. * Descript|
00001f60  69 6f 6e 3a 20 20 20 45  6e 71 75 69 72 65 20 77  |ion:   Enquire w|
00001f70  68 65 74 68 65 72 20 64  79 6e 61 6d 69 63 20 61  |hether dynamic a|
00001f80  72 65 61 20 69 73 20 69  6e 20 75 73 65 2e 0a 20  |rea is in use.. |
00001f90  2a 0a 20 2a 20 50 61 72  61 6d 65 74 65 72 73 3a  |*. * Parameters:|
00001fa0  20 20 20 20 76 6f 69 64  2e 0a 20 2a 20 52 65 74  |    void.. * Ret|
00001fb0  75 72 6e 73 3a 20 20 20  20 20 20 20 54 52 55 45  |urns:       TRUE|
00001fc0  20 69 66 20 61 20 64 79  6e 61 6d 69 63 20 61 72  | if a dynamic ar|
00001fd0  65 61 20 69 73 20 69 6e  20 75 73 65 2e 0a 20 2a  |ea is in use.. *|
00001fe0  20 4f 74 68 65 72 20 49  6e 66 6f 3a 20 20 20 20  | Other Info:    |
00001ff0  4e 6f 6e 65 0a 20 2a 2f  0a 0a 42 4f 4f 4c 20 66  |None. */..BOOL f|
00002000  6c 65 78 5f 69 73 64 79  6e 61 6d 69 63 28 76 6f  |lex_isdynamic(vo|
00002010  69 64 29 3b 0a 20 20 20  20 0a 2f 2a 20 2d 2d 2d  |id);.    ./* ---|
00002020  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002030  2d 2d 2d 2d 2d 2d 2d 2d  2d 20 66 6c 65 78 5f 56  |--------- flex_V|
00002040  4d 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |M --------------|
00002050  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002060  2d 2d 2d 0a 20 2a 20 44  65 73 63 72 69 70 74 69  |---. * Descripti|
00002070  6f 6e 3a 20 20 20 45 6e  71 75 69 72 65 20 77 68  |on:   Enquire wh|
00002080  65 74 68 65 72 20 76 69  72 74 75 61 6c 20 6d 65  |ether virtual me|
00002090  6d 6f 72 79 20 61 72 65  61 20 69 73 20 69 6e 20  |mory area is in |
000020a0  75 73 65 2e 0a 20 2a 0a  20 2a 20 50 61 72 61 6d  |use.. *. * Param|
000020b0  65 74 65 72 73 3a 20 20  20 20 76 6f 69 64 2e 0a  |eters:    void..|
000020c0  20 2a 20 52 65 74 75 72  6e 73 3a 20 20 20 20 20  | * Returns:     |
000020d0  20 20 54 52 55 45 20 69  66 20 76 69 72 74 75 61  |  TRUE if virtua|
000020e0  6c 20 6d 65 6d 6f 72 79  20 69 73 20 61 63 74 69  |l memory is acti|
000020f0  76 65 2e 0a 20 2a 20 4f  74 68 65 72 20 49 6e 66  |ve.. * Other Inf|
00002100  6f 3a 20 20 20 20 4e 6f  6e 65 0a 20 2a 2f 0a 0a  |o:    None. */..|
00002110  0a 42 4f 4f 4c 20 66 6c  65 78 5f 69 73 56 4d 28  |.BOOL flex_isVM(|
00002120  76 6f 69 64 29 3b 0a 0a  0a 2f 2a 20 46 6f 72 20  |void);.../* For |
00002130  66 75 6c 6c 20 64 65 74  61 69 6c 73 20 6f 66 20  |full details of |
00002140  74 68 65 20 66 6f 6c 6c  6f 77 69 6e 67 20 66 75  |the following fu|
00002150  6e 63 74 69 6f 6e 73 2e  20 50 6c 65 61 73 65 20  |nctions. Please |
00002160  72 65 61 64 20 74 68 65  20 64 6f 63 75 6d 65 6e  |read the documen|
00002170  74 61 74 69 6f 6e 20 0a  20 20 20 70 72 6f 76 69  |tation .   provi|
00002180  64 65 64 20 77 69 74 68  20 74 68 65 20 76 69 72  |ded with the vir|
00002190  74 75 61 6c 69 73 65 20  6d 6f 64 75 6c 65 2e 0a  |tualise module..|
000021a0  2a 2f 0a 0a 0a 0a 0a 0a  2f 2a 20 2d 2d 2d 2d 2d  |*/....../* -----|
000021b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000021c0  2d 2d 2d 2d 2d 2d 2d 20  66 6c 65 78 5f 56 4d 43  |------- flex_VMC|
000021d0  6f 6e 66 69 67 75 72 65  20 2d 2d 2d 2d 2d 2d 2d  |onfigure -------|
000021e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000021f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 20 2a 20 44 65  |----------. * De|
00002200  73 63 72 69 70 74 69 6f  6e 3a 20 20 20 43 6f 6e  |scription:   Con|
00002210  66 69 67 75 72 65 20 56  69 72 74 75 6c 69 73 65  |figure Virtulise|
00002220  20 6d 6f 64 75 6c 65 2e  0a 20 2a 0a 20 2a 20 50  | module.. *. * P|
00002230  61 72 61 6d 65 74 65 72  73 3a 20 20 20 20 69 6e  |arameters:    in|
00002240  74 20 64 65 66 20 20 20  2d 2d 20 20 73 69 7a 65  |t def   --  size|
00002250  20 6f 66 20 64 79 6e 61  6d 69 63 20 61 72 65 61  | of dynamic area|
00002260  20 63 72 65 61 74 65 64  20 69 66 20 70 61 73 73  | created if pass|
00002270  65 64 20 2d 31 20 61 73  20 73 69 7a 65 2e 0a 20  |ed -1 as size.. |
00002280  2a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |*               |
00002290  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 41  |               A|
000022a0  70 70 6c 69 63 61 74 69  6f 6e 73 20 64 6f 6e 27  |pplications don'|
000022b0  74 20 6e 6f 72 6d 61 6c  6c 79 20 61 6c 74 65 72  |t normally alter|
000022c0  20 74 68 69 73 2e 0a 20  20 20 20 20 20 20 20 20  | this..         |
000022d0  20 20 20 20 20 20 20 20  20 69 6e 74 20 63 61 63  |         int cac|
000022e0  68 65 20 2d 2d 20 20 75  73 65 20 74 68 69 73 20  |he --  use this |
000022f0  6d 75 63 68 20 70 68 79  73 69 63 61 6c 20 52 41  |much physical RA|
00002300  4d 20 62 65 66 6f 72 65  20 75 73 69 6e 67 20 56  |M before using V|
00002310  4d 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |M.              |
00002320  20 20 20 20 69 6e 74 20  6c 65 66 74 20 20 2d 2d  |    int left  --|
00002330  20 20 62 75 74 20 6c 65  61 76 65 20 61 74 20 6c  |  but leave at l|
00002340  65 61 73 74 20 74 68 69  73 20 6d 75 63 68 20 66  |east this much f|
00002350  72 65 65 20 66 6f 72 20  6f 74 68 65 72 20 61 70  |ree for other ap|
00002360  70 6c 69 63 61 74 69 6f  6e 73 2e 0a 20 2a 20 52  |plications.. * R|
00002370  65 74 75 72 6e 73 3a 20  20 20 20 20 20 20 4e 55  |eturns:       NU|
00002380  4c 4c 20 69 66 20 73 75  63 63 65 73 73 66 75 6c  |LL if successful|
00002390  2c 20 6f 74 68 65 72 77  69 73 65 20 61 6e 20 65  |, otherwise an e|
000023a0  72 72 6f 72 20 70 6f 69  6e 74 65 72 0a 20 2a 20  |rror pointer. * |
000023b0  4f 74 68 65 72 20 49 6e  66 6f 3a 20 20 20 20 4e  |Other Info:    N|
000023c0  6f 6e 65 0a 20 2a 2f 0a  0a 5f 6b 65 72 6e 65 6c  |one. */.._kernel|
000023d0  5f 6f 73 65 72 72 6f 72  20 2a 20 66 6c 65 78 5f  |_oserror * flex_|
000023e0  56 4d 43 6f 6e 66 69 67  75 72 65 28 69 6e 74 20  |VMConfigure(int |
000023f0  64 65 66 2c 69 6e 74 20  63 61 63 68 65 2c 69 6e  |def,int cache,in|
00002400  74 20 6c 65 66 74 29 3b  0a 0a 0a 0a 2f 2a 20 2d  |t left);..../* -|
00002410  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002420  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 20 66 6c 65 78  |----------- flex|
00002430  5f 72 65 61 64 56 4d 43  6f 6e 66 69 67 75 72 65  |_readVMConfigure|
00002440  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00002450  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002460  2d 2d 0a 20 2a 20 44 65  73 63 72 69 70 74 69 6f  |--. * Descriptio|
00002470  6e 3a 20 20 20 52 65 61  64 20 56 69 72 74 75 6c  |n:   Read Virtul|
00002480  69 73 65 20 6d 6f 64 75  6c 65 20 63 6f 6e 66 69  |ise module confi|
00002490  67 75 72 61 74 69 6f 6e  2e 0a 20 2a 0a 20 2a 20  |guration.. *. * |
000024a0  50 61 72 61 6d 65 74 65  72 73 3a 20 20 20 20 69  |Parameters:    i|
000024b0  6e 74 20 2a 64 65 66 20  20 20 2d 2d 20 20 6f 6e  |nt *def   --  on|
000024c0  20 65 78 69 74 20 63 6f  6e 74 61 69 6e 73 20 73  | exit contains s|
000024d0  69 7a 65 20 6f 66 20 64  79 6e 61 6d 69 63 20 61  |ize of dynamic a|
000024e0  72 65 61 20 63 72 65 61  74 65 64 20 69 66 20 70  |rea created if p|
000024f0  61 73 73 65 64 20 2d 31  20 61 73 20 73 69 7a 65  |assed -1 as size|
00002500  2e 0a 20 2a 20 20 20 20  20 20 20 20 20 20 20 20  |.. *            |
00002510  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002520  20 20 20 41 70 70 6c 69  63 61 74 69 6f 6e 73 20  |   Applications |
00002530  64 6f 6e 27 74 20 6e 6f  72 6d 61 6c 6c 79 20 61  |don't normally a|
00002540  6c 74 65 72 20 74 68 69  73 2e 0a 20 20 20 20 20  |lter this..     |
00002550  20 20 20 20 20 20 20 20  20 20 20 20 20 69 6e 74  |             int|
00002560  20 2a 63 61 63 68 65 20  2d 2d 20 20 6f 6e 20 65  | *cache --  on e|
00002570  78 69 74 20 63 6f 6e 74  61 69 6e 73 20 73 69 7a  |xit contains siz|
00002580  65 20 6f 66 20 70 68 79  73 69 63 61 6c 20 52 41  |e of physical RA|
00002590  4d 20 74 6f 20 75 73 65  20 62 65 66 6f 72 65 20  |M to use before |
000025a0  75 73 69 6e 67 20 56 4d  0a 20 20 20 20 20 20 20  |using VM.       |
000025b0  20 20 20 20 20 20 20 20  20 20 20 69 6e 74 20 2a  |           int *|
000025c0  6c 65 66 74 20 20 2d 2d  20 20 6f 6e 20 65 78 69  |left  --  on exi|
000025d0  74 20 63 6f 6e 74 61 69  6e 73 20 73 69 7a 65 20  |t contains size |
000025e0  74 6f 20 6c 65 61 76 65  20 61 74 20 66 72 65 65  |to leave at free|
000025f0  20 66 6f 72 20 6f 74 68  65 72 20 61 70 70 6c 69  | for other appli|
00002600  63 61 74 69 6f 6e 73 2e  0a 20 2a 20 52 65 74 75  |cations.. * Retu|
00002610  72 6e 73 3a 20 20 20 20  20 20 20 4e 55 4c 4c 20  |rns:       NULL |
00002620  69 66 20 73 75 63 63 65  73 73 66 75 6c 2c 20 6f  |if successful, o|
00002630  74 68 65 72 77 69 73 65  20 61 6e 20 65 72 72 6f  |therwise an erro|
00002640  72 20 70 6f 69 6e 74 65  72 0a 20 2a 20 4f 74 68  |r pointer. * Oth|
00002650  65 72 20 49 6e 66 6f 3a  20 20 20 20 4e 6f 6e 65  |er Info:    None|
00002660  0a 20 2a 2f 0a 0a 5f 6b  65 72 6e 65 6c 5f 6f 73  |. */.._kernel_os|
00002670  65 72 72 6f 72 20 2a 20  66 6c 65 78 5f 72 65 61  |error * flex_rea|
00002680  64 56 4d 43 6f 6e 66 69  67 75 72 65 28 69 6e 74  |dVMConfigure(int|
00002690  20 2a 64 65 66 20 2c 69  6e 74 20 2a 63 61 63 68  | *def ,int *cach|
000026a0  65 2c 69 6e 74 20 2a 6c  65 66 74 29 3b 0a 0a 0a  |e,int *left);...|
000026b0  2f 2a 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |/* -------------|
000026c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 20  |--------------- |
000026d0  66 6c 65 78 5f 76 69 72  74 75 61 6c 73 74 61 72  |flex_virtualstar|
000026e0  74 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |t --------------|
000026f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002700  2d 2d 2d 0a 20 2a 20 44  65 73 63 72 69 70 74 69  |---. * Descripti|
00002710  6f 6e 3a 20 20 20 73 74  61 72 74 20 76 69 72 74  |on:   start virt|
00002720  75 61 6c 20 6d 65 6d 6f  72 79 20 6f 6e 20 66 6c  |ual memory on fl|
00002730  65 78 27 73 20 64 79 6e  61 6d 69 63 20 61 72 65  |ex's dynamic are|
00002740  61 2e 0a 20 2a 0a 20 2a  20 50 61 72 61 6d 65 74  |a.. *. * Paramet|
00002750  65 72 73 3a 20 20 20 20  63 68 61 72 20 2a 73 77  |ers:    char *sw|
00002760  61 70 66 69 6c 65 20 20  20 2d 2d 20 70 6f 69 6e  |apfile   -- poin|
00002770  74 65 72 20 74 6f 20 66  69 6c 65 6e 61 6d 65 20  |ter to filename |
00002780  74 6f 20 75 73 65 20 61  73 20 73 77 61 70 66 69  |to use as swapfi|
00002790  6c 65 2e 20 49 66 20 4e  55 4c 4c 2c 0a 20 2a 20  |le. If NULL,. * |
000027a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000027c0  20 20 20 56 69 72 74 75  61 6c 69 73 65 20 6d 6f  |   Virtualise mo|
000027d0  64 75 6c 65 20 77 69 6c  6c 20 63 68 6f 6f 73 65  |dule will choose|
000027e0  20 69 74 73 20 6f 77 6e  20 6e 61 6d 65 20 28 69  | its own name (i|
000027f0  6e 20 74 68 65 0a 20 2a  20 20 20 20 20 20 20 20  |n the. *        |
00002800  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002810  20 20 20 20 20 20 20 20  20 20 20 20 73 63 72 61  |            scra|
00002820  70 20 64 69 72 65 63 74  6f 72 79 2e 20 41 70 70  |p directory. App|
00002830  6c 69 63 61 74 69 6f 6e  73 20 77 69 6c 6c 20 6e  |lications will n|
00002840  6f 74 20 6e 6f 72 6d 61  6c 6c 79 0a 20 2a 20 20  |ot normally. *  |
00002850  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00002870  20 20 61 6c 74 65 72 20  74 68 69 73 2e 0a 20 2a  |  alter this.. *|
00002880  20 52 65 74 75 72 6e 73  3a 20 20 20 20 20 20 20  | Returns:       |
00002890  4e 55 4c 4c 20 69 66 20  73 75 63 63 65 73 73 66  |NULL if successf|
000028a0  75 6c 2c 20 6f 74 68 65  72 77 69 73 65 20 61 6e  |ul, otherwise an|
000028b0  20 65 72 72 6f 72 20 70  6f 69 6e 74 65 72 0a 20  | error pointer. |
000028c0  2a 20 4f 74 68 65 72 20  49 6e 66 6f 3a 20 20 20  |* Other Info:   |
000028d0  20 4e 6f 6e 65 0a 20 2a  2f 0a 0a 5f 6b 65 72 6e  | None. */.._kern|
000028e0  65 6c 5f 6f 73 65 72 72  6f 72 20 2a 20 66 6c 65  |el_oserror * fle|
000028f0  78 5f 76 69 72 74 75 61  6c 73 74 61 72 74 28 63  |x_virtualstart(c|
00002900  68 61 72 20 2a 20 73 77  61 70 66 69 6c 65 29 3b  |har * swapfile);|
00002910  0a 0a 2f 2a 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |../* -----------|
00002920  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002930  2d 20 66 6c 65 78 5f 76  69 72 74 75 61 6c 73 74  |- flex_virtualst|
00002940  6f 70 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |op -------------|
00002950  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002960  2d 2d 2d 2d 0a 20 2a 20  44 65 73 63 72 69 70 74  |----. * Descript|
00002970  69 6f 6e 3a 20 20 20 73  74 6f 70 20 76 69 72 74  |ion:   stop virt|
00002980  75 61 6c 20 6d 65 6d 6f  72 79 20 6f 6e 20 66 6c  |ual memory on fl|
00002990  65 78 27 73 20 64 79 6e  61 6d 69 63 20 61 72 65  |ex's dynamic are|
000029a0  61 2e 0a 20 2a 0a 20 2a  20 50 61 72 61 6d 65 74  |a.. *. * Paramet|
000029b0  65 72 73 3a 20 20 20 20  76 6f 69 64 0a 20 2a 20  |ers:    void. * |
000029c0  52 65 74 75 72 6e 73 3a  20 20 20 20 20 20 20 4e  |Returns:       N|
000029d0  55 4c 4c 20 69 66 20 73  75 63 63 65 73 73 66 75  |ULL if successfu|
000029e0  6c 2c 20 6f 74 68 65 72  77 69 73 65 20 61 6e 20  |l, otherwise an |
000029f0  65 72 72 6f 72 20 70 6f  69 6e 74 65 72 0a 20 2a  |error pointer. *|
00002a00  20 4f 74 68 65 72 20 49  6e 66 6f 3a 20 20 20 20  | Other Info:    |
00002a10  4e 6f 6e 65 0a 20 2a 2f  0a 0a 5f 6b 65 72 6e 65  |None. */.._kerne|
00002a20  6c 5f 6f 73 65 72 72 6f  72 20 2a 20 66 6c 65 78  |l_oserror * flex|
00002a30  5f 76 69 72 74 75 61 6c  73 74 6f 70 28 76 6f 69  |_virtualstop(voi|
00002a40  64 29 3b 0a 0a 0a 2f 2a  20 2d 2d 2d 2d 2d 2d 2d  |d);.../* -------|
00002a50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002a60  2d 2d 2d 2d 2d 20 66 6c  65 78 5f 6c 6f 63 6b 20  |----- flex_lock |
00002a70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002a90  2d 0a 20 2a 20 44 65 73  63 72 69 70 74 69 6f 6e  |-. * Description|
00002aa0  3a 20 20 20 6c 6f 63 6b  20 70 61 67 65 73 20 69  |:   lock pages i|
00002ab0  6e 20 70 68 79 69 63 61  6c 20 72 61 6d 2e 0a 20  |n phyical ram.. |
00002ac0  2a 0a 20 2a 20 50 61 72  61 6d 65 74 65 72 73 3a  |*. * Parameters:|
00002ad0  20 20 20 20 69 6e 74 20  73 74 61 72 74 20 2d 2d  |    int start --|
00002ae0  20 73 74 61 72 74 20 61  64 64 72 65 73 73 20 74  | start address t|
00002af0  6f 20 6c 6f 63 6b 0a 20  2a 20 20 20 20 20 20 20  |o lock. *       |
00002b00  20 20 20 20 20 20 20 20  20 69 6e 74 20 65 6e 64  |         int end|
00002b10  20 20 20 2d 2d 20 65 6e  64 20 20 20 61 64 64 72  |   -- end   addr|
00002b20  65 73 73 20 74 6f 20 6c  6f 63 6b 0a 20 2a 20 52  |ess to lock. * R|
00002b30  65 74 75 72 6e 73 3a 20  20 20 20 20 20 20 4e 55  |eturns:       NU|
00002b40  4c 4c 20 69 66 20 73 75  63 63 65 73 73 66 75 6c  |LL if successful|
00002b50  2c 20 6f 74 68 65 72 77  69 73 65 20 61 6e 20 65  |, otherwise an e|
00002b60  72 72 6f 72 20 70 6f 69  6e 74 65 72 0a 20 2a 20  |rror pointer. * |
00002b70  4f 74 68 65 72 20 49 6e  66 6f 3a 20 20 20 20 4e  |Other Info:    N|
00002b80  6f 6e 65 0a 20 2a 2f 0a  0a 5f 6b 65 72 6e 65 6c  |one. */.._kernel|
00002b90  5f 6f 73 65 72 72 6f 72  20 2a 20 66 6c 65 78 5f  |_oserror * flex_|
00002ba0  6c 6f 63 6b 28 69 6e 74  20 73 74 61 72 74 2c 69  |lock(int start,i|
00002bb0  6e 74 20 65 6e 64 29 3b  0a 0a 0a 2f 2a 20 2d 2d  |nt end);.../* --|
00002bc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002bd0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 20 66 6c 65 78 5f  |---------- flex_|
00002be0  75 6e 6c 6f 63 6b 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |unlock ---------|
00002bf0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002c00  2d 2d 2d 2d 2d 2d 2d 2d  0a 20 2a 20 44 65 73 63  |--------. * Desc|
00002c10  72 69 70 74 69 6f 6e 3a  20 20 20 75 6e 6c 6f 63  |ription:   unloc|
00002c20  6b 20 70 61 67 65 73 20  69 6e 20 70 68 79 69 63  |k pages in phyic|
00002c30  61 6c 20 72 61 6d 2e 0a  20 2a 0a 20 2a 20 50 61  |al ram.. *. * Pa|
00002c40  72 61 6d 65 74 65 72 73  3a 20 20 20 20 69 6e 74  |rameters:    int|
00002c50  20 73 74 61 72 74 20 2d  2d 20 73 74 61 72 74 20  | start -- start |
00002c60  61 64 64 72 65 73 73 20  74 6f 20 75 6e 6c 6f 63  |address to unloc|
00002c70  6b 0a 20 2a 20 20 20 20  20 20 20 20 20 20 20 20  |k. *            |
00002c80  20 20 20 20 69 6e 74 20  65 6e 64 20 20 20 2d 2d  |    int end   --|
00002c90  20 65 6e 64 20 20 20 61  64 64 72 65 73 73 20 74  | end   address t|
00002ca0  6f 20 75 6e 6c 6f 63 6b  0a 20 2a 20 52 65 74 75  |o unlock. * Retu|
00002cb0  72 6e 73 3a 20 20 20 20  20 20 20 4e 55 4c 4c 20  |rns:       NULL |
00002cc0  69 66 20 73 75 63 63 65  73 73 66 75 6c 2c 20 6f  |if successful, o|
00002cd0  74 68 65 72 77 69 73 65  20 61 6e 20 65 72 72 6f  |therwise an erro|
00002ce0  72 20 70 6f 69 6e 74 65  72 0a 20 2a 20 4f 74 68  |r pointer. * Oth|
00002cf0  65 72 20 49 6e 66 6f 3a  20 20 20 20 4e 6f 6e 65  |er Info:    None|
00002d00  0a 20 2a 2f 0a 0a 5f 6b  65 72 6e 65 6c 5f 6f 73  |. */.._kernel_os|
00002d10  65 72 72 6f 72 20 2a 20  66 6c 65 78 5f 75 6e 6c  |error * flex_unl|
00002d20  6f 63 6b 28 69 6e 74 20  73 74 61 72 74 2c 69 6e  |ock(int start,in|
00002d30  74 20 65 6e 64 29 3b 0a  0a 0a 0a 23 69 66 64 65  |t end);....#ifde|
00002d40  66 20 5f 5f 63 70 6c 75  73 70 6c 75 73 0a 7d 0a  |f __cplusplus.}.|
00002d50  23 65 6e 64 69 66 0a 23  65 6e 64 69 66 0a 0a 2f  |#endif.#endif../|
00002d60  2a 20 65 6e 64 20 66 6c  65 78 2e 68 20 2a 2f 0a  |* end flex.h */.|
00002d70  0a 0a 0a                                          |...|
00002d73