;************************************************************ ; ; FN$BABY_ED - "Baby" editor ; ; arguments are: ; ; in_buffer is the string - the max size is determined by the minimum of ; maximum size of a dynamically allocated strings ; in DATATRIEVE or the size of the buffers in ; BABY_ED2.FOR ; out_buffer is the returned string - the max size is determined by the ; minimum of three things ; 1. the maximum size of a dynamically allocated ; string in DATATRIEVE ; 2. the size of the buffers in BABY_ED2.FOR ; 3. the max size of a returned allocated string as ; specified in the module $DTR$FUN_IN_ARG in ; the macro library DTR$LIBRARY:DTRFNLB.MLB ; (the DEC default is 1000 characters and you ; will have to increase it using the instructions ; from the newsletter article given in ; WW_ALL_LEN.LST to make the returned string larger ; than 1000 characters) ; (Note: this code uses a limit of 2000 characters, ; for the ALL_LEN (DTR restriction), but the ; buffers in BABY_ED2.FOR restrict to 10000 ; characters.) ; buffer_size long - the size of in_buffer and out_buffer ; top long - the row number of the top of edit region ; left long - the column number of the left side of the edit region ; window_height long - the number of line of the edit region ; window_width long - the number of columns of width of the edit region ; scrn_clr_bef long - clear screen before display flag ; scrn_clr_aft long - clear screen after display flag ; wrap_flag long - perform wrapped display flag - (not yet implemented) ; (see the code and documentation in BABY_ED2.FOR for limits and restriction ; on the 8 parameters above) ; $DTR$FUN_DEF FN$BABY_ED, BABY_ED, 10 $DTR$FUN_OUT_ARG TYPE = FUN$K_STATUS $DTR$FUN_IN_ARG TYPE = FUN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 1 $DTR$FUN_IN_ARG TYPE = FUN$K_TEXT, OUT_PUT = TRUE , ALL_LEN = 2000 $DTR$FUN_IN_ARG TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 2 $DTR$FUN_IN_ARG TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 3 $DTR$FUN_IN_ARG TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 4 $DTR$FUN_IN_ARG TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 5 $DTR$FUN_IN_ARG TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 6 $DTR$FUN_IN_ARG TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 7 $DTR$FUN_IN_ARG TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 8 $DTR$FUN_IN_ARG TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 9 $DTR$FUN_NOOPTIMIZE $DTR$FUN_HEADER HDR = <-> $DTR$FUN_EDIT_STRING ^\X(2000)\ $DTR$FUN_END_DEF