home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / rep_anom.zip / BUILTIN.DEF next >
Text File  |  1988-09-21  |  14KB  |  315 lines
  1. //---------------------------------------------------------------------------
  2. // BUILTIN.DEF  Template builtin function selectors
  3. // Ashton-Tate (c) 1987
  4. //
  5. // Updated 9-21-88 KJN
  6. //
  7. // --------------------------------------------------------------
  8. // Builtin Functions 
  9. // --------------------------------------------------------------
  10. // This set of selectors designate builtin functions which should
  11. // appear in templates as <selector>([parm][,parm]...)
  12. // They must be included in every template.
  13. //
  14. // *** DO NOT CHANGE ANY OF THE NUMBERS BELOW ***
  15. //
  16. //---------------------------------------------------------------------------
  17. {
  18. selectors
  19. #lstoff
  20. //
  21. // Note: <filename> could also be <expC>
  22. //
  23. ALLTRIM    340, // Trim leading and trailing blanks
  24.                 // Syntax: ALLTRIM(<expC>)
  25. APPEND     324, // Append to an existing output file  
  26.                 // Syntax: APPEND(<filename>)
  27. ASC        301, // Ascii value of first char of string
  28.                 // Syntax: ASC(<expC>)
  29. ASKUSER    344, // Prompt user for keyboard input
  30.                 // Syntax: ASKUSER(<expC>,<expC>,<expN>)
  31. AT         302, // Substring search
  32.                 // Syntax: AT(<expC>,<expC>)
  33. ATALPHA    303, // Locate first nonblank alpha numeric
  34.                 // Syntax: ATALPHA(<expC>)
  35. ATOMC      332, // Get sublist data from cursor 
  36.                 // Syntax: ATOMC(<cursor>,<expN>)
  37. BACKSLASH  321, // Literal backslash
  38.                 // Syntax: BACKSLASH()
  39. BREAKPOINT 378, // Break during gen to allow user to change trace level
  40.                 // Works in stand alone dGEN.exe
  41.                 // Syntax: BREAKPOINT(<expC>)
  42. CGET       368, // Input string
  43.                 // Syntax: CGET()
  44. CHR        304, // Return one char string from ascii value
  45.                 // Syntax: CHR(<expN>)
  46. CLS        367, // Clear the screen
  47.                 // Syntax: CLS()
  48. COL1       352, // Left column of object frame
  49.                 // Syntax: COL1()
  50. COL2       353, // Right column of object frame
  51.                 // Syntax: COL2()
  52. COPY       325, // Copy text file to output stream
  53.                 // Syntax: COPY(<filename>)
  54. COUNTC     355, // Cursor's incremental count
  55.                 // Syntax: COUNTC(<cursor>)
  56. CPUT       366, // Put string to console at current location
  57.                 // Syntax: CPUT(<expC>)
  58. CREATE     323, // Create an output file
  59.                 // Syntax: CREATE(<filename>)
  60. CURLINE    338, // Current printed line
  61.                 // Syntax: CURLINE()
  62. CURSOR_POS 365, // Set cursor position on the screen (row,col)
  63.                 // Syntax: CURSOR_POS(<expN>,<expN>)
  64. DATE       333, // Get system date and time
  65.                 // Syntax: DATE()
  66. DEBUG      377, // Debug switch - takes values from 0 to 4
  67.                 // 0=Line number only to 4=full debug trace
  68.                 // Works in stand alone dGEN.exe
  69.                 // Syntax: DEBUG(<expN>)
  70. EOC        329, // Check for cursor off end of foreach loop
  71.                 // Syntax: EOC(<cursor>)
  72. EXEC       369, // Execute a DOS program
  73.                 // Syntax: EXEC(<filename>)
  74. FILEDATE   360, // Return file date as num
  75.                 // Syntax: FILEDATE(<filename>)
  76. FILEDRIVE  309, // Return drive:  
  77.                 // Syntax: FILEDRIVE(<filename>)
  78. FILEERASE  379, // Erase a dos file
  79.                 // Syntax: FILEERASE(<filename>)
  80. FILEEXIST  343, // Test for file existence
  81.                 // Syntax: FILEEXIST(<filename>)
  82. FILENAME   307, // Return file root.extension
  83.                 // Syntax: FILENAME(<filename>)
  84. FILEOK     345, // Test for file name validity
  85.                 // Syntax: FILEOK(<filename>)
  86. FILEPATH   308, // Return file path
  87.                 // Syntax: FILEPATH(<filename>)
  88. FILEROOT   306, // Return file name root
  89.                 // Syntax: FILEROOT(<filename>)
  90. FILETYPE   305, // Return file extension
  91.                 // Syntax: FILETYPE(<filename>)
  92. FILESIZE   362, // Return file size as num
  93.                 // Syntax: FILESIZE(<filename>)
  94. GETENV     359, // Returns a environment variable from DOS
  95.                 // Syntax: GETENV(<expC>)
  96. IIDC       357, // Return internal selector number of item at cursor
  97.                 // Syntax: IIDC(<cursor>)
  98. LEN        310, // String length
  99.                 // Syntax: LEN(<expC> or <expN>)
  100. LMARG      336, // Left margin column 
  101.                 // Syntax: LMARG(<expN>)
  102. LOWER      318, // Convert to lower case
  103.                 // Syntax: LOWER(<expC>)
  104. LTRIM      311, // Trim leading blanks
  105.                 // Syntax: LTRIM(<expC>)
  106. MAKEC      326, // Create a cursor
  107.                 // Syntax: MAKEC(<expN>[,<cursor>])
  108. MAX        313, // Return max of two numbers
  109.                 // Syntax: MAX(<expN>,<expN>)
  110. MIN        314, // Return min of two numbers
  111.                 // Syntax: MIN(<expN>,<expN>)
  112. NEWFRAME   348, // Change to a different object
  113.                 // application object
  114.                 // Syntax: NEWFRAME(<expC>)
  115. NEXTC      328, // Advance a cursor
  116.                 // Syntax: NEXTC(<cursor>)
  117. NMSG       381, // Output a message on the dbase navigation line 23
  118.                 // Syntax: NMSG(<expC>)
  119. NUMSET       363, // Get dbase number setting 
  120.                 // Syntax: NUMSET(<expN>)
  121. PAGEJECT   347, // Inserts a chr(12) and resets curline() to 0
  122.                 // Syntax: PAGEJECT()
  123. PAGEL      337, // Printed lines per output page 
  124.                 // Syntax: PAGEL(<expN>)
  125. PATHEXIST  370, // Test existence of a dos directory
  126.                 // Syntax: PATHEXIST(<expC>)
  127. PAUSE      334, // Output a breakpoint message and pause (line 24)
  128.                 // Syntax: PAUSE(<expC>)
  129. PMSG       380, // Output a message on the dbase message line 24
  130.                 // Syntax: PMSG(<expC>)
  131. POKE       349, // Unformatted print
  132.                 // Could use this to make dbase file headers, macro files
  133.                 // Syntax: POKE(<expC> [,<expC>,....])
  134. PRINT      322, // Print argument list
  135.                 // Syntax: PRINT(<expC>)
  136. REPLICATE  342, // Make a string of a given character
  137.                 // Syntax: REPLICATE(<expC>)
  138. ROW1       350, // Top row of object frame
  139.                 // Syntax: ROW1()
  140. ROW2       351, // Bottom row of object frame
  141.                 // Syntax: ROW2()
  142. RTRIM      312, // Trim trailing blanks
  143.                 // Syntax: RTRIM(<expC>)
  144. SCREEN     335, // Get a line of the screen 
  145.                 // Syntax: SCREEN(<expN>)
  146. SETC       327, // Set new cursor location
  147.                 // Syntax: SETC(<cursor>,<expN>)
  148. SPACE      341, // Make a string of spaces
  149.                 // Syntax: SPACE(<expC>)
  150. STR        315, // Convert number to string
  151.                 // Syntax: STR(<expN>)
  152. STRSET     364, // Get dbase string setting
  153.                 // Syntax: STRSET(<expC>)
  154. SUBSTR     316, // Extract a substring
  155.                 // Syntax: SUBSTR(<expC>,<expN>,<expN>)
  156. TABTO      339, // Tab over to given column
  157.                 // Syntax: TABTO(<expN>)
  158. TEXTCLOSE  372, // Close text input stream
  159.                 // Syntax: TEXTCLOSE()
  160. TEXTGETC   373, // Get character from text input stream
  161.                 // Syntax: TEXTGETC()
  162. TEXTGETL   374, // Get line from text input stream
  163.                 // Syntax: TEXTGETL()
  164. TEXTGPOS   375, // Get file position from text input stream
  165.                 // Syntax: TEXTGPOS()
  166. TEXTOPEN   371, // Open text input stream
  167.                 // Syntax: TEXTOPEN(<filename>)
  168. TEXTSPOS   376, // Set file Position of text input stream
  169.                 // Syntax: TEXTSPOS(<expN>)
  170. TYPEC      356, // Return type of item at current cursor
  171.                 // Syntax: TYPEC(<cursor>)
  172. UPPER      317, // Convert to upper case
  173.                 // Syntax: UPPER(<expC>)
  174. VAL        319, // Convert string to number
  175.                 // Syntax: VAL(<expC>)
  176. VALC       358, // Return value of item at current cursor
  177.                 // Syntax: VALC(<cursor>)
  178. VERSION    320, // Return version number of apgen
  179.                 // Syntax: VERSION()
  180. //
  181. // End of Builtin functions
  182. //--------------------------------------------------------------
  183. //
  184. // Aggregate selectors  (e.g. foreach dosfile k in "*.doc" ... next k)
  185. //
  186. ATTRIBUTE  1002, // All attribute values in an element or frame
  187. DOSFILE     331, // Dos file list element
  188. #lston
  189. ;
  190. }
  191. {
  192. //--------------------------------------------------------------
  193. // Enum Statements for dBASE IV internal Settings
  194. // Use with functions numset() & strset()
  195. //
  196. // For convience this enum declaration has been placed in this 
  197. // file, since they can be used in all design objects
  198. //--------------------------------------------------------------
  199. // Enum for numset()
  200. // Note: FSE = Full Screen Edit
  201. //
  202. enum _device_file = 0,  //  0 File handle for SET DEVICE TO <filename> 
  203.      _blocksize ,       //  1 Number of 512-byte pages in DBT     
  204.      _flgalter ,        //  2 Output routed to alt. file        
  205.      _flgbell  ,        //  3 Bell 0:off 1:on
  206.      _flgcarry ,        //  4 Carry 0:off 1:on
  207.      _flgcent  ,        //  5 Use 4-digit years            
  208.      _flgclock ,        //  6 Clock 0:off 1:on
  209.      _flgcnfrm ,        //  7 Confirm 0:off 1:on
  210.      _flgcolor ,        //  8 Color set flag 0=b/w 1=cga 2=ega24 4=mono43
  211.                         //                  6=ega43  3 & 5=N/A
  212.      _flgconsole,       //  9 Console 0:off 1:on
  213.      _flgcrypt ,        // 10 File encryption 0:off 1:on
  214.      _flgcursgn,        // 11 Currency symbol display 0:left 1:right 
  215.      _flgdebug ,        // 12 Route STEP, ECHO to printer 0:off 1:on
  216.      _flgdelete,        // 13 Deleted records vanish 0:off 1:on
  217.      _flgdelim ,        // 14 Delimiters 0:off 1:on
  218.      _flgdesign,        // 15 Design mode 0:off 1:on
  219.      _flgdev ,            // 16 Always compile file 0:off 1:on
  220.      _flgdohist,        // 17 Do History 0:off 1:on
  221.      _flgecho  ,        // 18 Echo 0:off 1:on
  222.      _flgesc   ,        // 19 Escape 0:off 1:on
  223.      _flgexact ,        // 20 Exact 0:off 1:on
  224.      _flgexcl  ,        // 21 Exclusive 0:off 1:on
  225.      _flgfield ,        // 22 fields 0:off 1:on
  226.      _flgfixed ,        // 23 Fixed point 0:off 1:on
  227.      _flgflush ,        // 24 Autosave 0:off 1:on
  228.      _flghead  ,        // 25 Headings on DISPLAY, SUM, etc. 0:off 1:on
  229.      _flghelp  ,        // 26 Offer help on error 0:off 1:on
  230.      _flghist  ,        // 27 History 0:off 1:on
  231.      _flginstruct,      // 28 Instruct 0:off 1:on
  232.      _flginten ,        // 29 High intensity 0:off 1:on
  233.      _flgmenu  ,        // 30 Put menus up in FSE 0:off 1:on
  234.      _flgnear  ,        // 31 Stay at next record if SEEK/FIND fail 0:off 1:on
  235.      _flgprint ,        // 32 Route output to printer        
  236.      _flgscore ,        // 33 FALSE:  screen doesn't use line 0    
  237.      _flgscprt ,        // 34 0:@'s to screen 1:  @'s routed to printer        
  238.      _flgshare ,        // 35 Allow shared access to databases    
  239.      _flgspace ,        // 36 Set space ON/off (for print engine). 
  240.      _flgsql,            // 37 0: dBASE mode 1: SQL mode      
  241.      _flgsqlcode,       // 38 1: executing SQL generated cmds   
  242.      _flgstatus,        // 39 Status 0:off 1:on
  243.      _flgstep,          // 40 Single-step DO files 0:off 1:on
  244.      _flgtalk ,         // 41 Talk 0:off 1:on
  245.      _flgtitle,         // 42 Titles 0:off 1:on
  246.      _flgtrap,            // 43 Trap 0:off 1:on
  247.      _flguniq,          // 44 Indices 0:Non-unique 1: Unique keys
  248.      _flgautolk,        // 45 Automatic lock flag for network 0:off 1:on
  249.      _flgrefresh,       // 46 The refresh count Returns: Number
  250.      _memowidth,        // 47 Displayed width of memo fields Returns: Number
  251.      _mindec,           // 48 Minimum (or fixed) # decimals Returns: Number
  252.      _odometer,         // 49 Interval odometer is updated Returns: Number
  253.      _safety,           // 50 Safety 0:off 1:on
  254.      _setmrgn,          // 51 Printer left margin Returns: Number
  255.      _reprocess,        // 52 Reprocess count Returns: Number
  256.      _nbuffers,         // 53 Maximum number of I/O buffers Returns: Number
  257.      _lenYNOF           // 54 Default max of YES/NO/ON/OFF 
  258. ;
  259. //
  260. // Enum for strset()
  261. // Note: FSE = Full Screen Edit
  262. //
  263. enum _getdelim = 0,     //  0 FSE l,r delimiters        
  264.      _disp_currency,    //  1 Current FSE currency string 
  265.      _def_currency,     //  2 Default FSE currency string 
  266.      _lang_type,        //  3 Language type designator string
  267.      _wordproc,            //  4 Program used for memo fields
  268.      _tedit,            //  5 Program used for MODIFY COMMAND 
  269.      _dotprompt,        //  6 Dot prompt string 
  270.      _sqlprompt,        //  7 Sql prompt string 
  271.      _sql_dir,            //  8 Path for SQL system files 
  272.      _sql_database,     //  9 Name of SQL system database 
  273.      _font_file,        // 10 Name of font file 
  274.      _defdrive,            // 11 DBASE default drive
  275.      _disp_period,      // 12 Current display decimal point 
  276.      _disp_comma,       // 13 Current FSE separator 
  277.      _def_period,       // 14 Default display decimal point 
  278.      _def_comma         // 15 Default FSE separator 
  279. ;
  280. //
  281. // Enum for Monitor types
  282. // Values returned by numset(_flgcolor)
  283.  enum mono = 0, 
  284.       cga,
  285.       ega25,
  286.       mono43 = 4,
  287.       ega43  = 6
  288. ;
  289. //
  290. // Values returned by Object Class
  291. //
  292.  enum app    = 1,  // 1) Application object
  293.       popup,       // 2) Popup object
  294.       f_pick,      // 3) File picklist object
  295.       s_pick,      // 4) Fields picklist object
  296.       v_pick,      // 5) Values picklist object
  297.       bar = 7,     // 7) Horizontal Bar object
  298.                    // 6,8 N/A
  299.       btch   = 9   // 9) Batch object
  300.       form   = 11,
  301.       label  = 12,
  302.       report = 13
  303. ;
  304. //
  305. // Values returned Textgetl() or Textgetc() at End of file
  306. //
  307. enum eof = -1;
  308. //
  309. // Enum string constants for international translation
  310. //
  311. enum any_key = "Press any key ...",
  312.      read_only = " can't be opened - possible read-only file.  ";
  313. //
  314. }
  315.