linereadstring() function problem

 Hello Andrew,

 

Here I post routine similar to the original  routine in my script. In this routine you can select which from the available in the certain project libraries to be included in the output procedure: DIG, IO, ANA and 90123AATOP in the example. In this example the output procedure is just printing: printf("List of libraries to be skipped:%s\n" xxx).

To execute the routine start the function:  Choose_skip_lib()

You can see that you can select and unselect each library except  90123AATO. If you select or unselect it error message appear:

 SYNTAX ERROR found at line 1 column 38 of file *string*
*Error* lineread/read: syntax error encountered in input

procedure( Choose_skip_lib()

;       Description
;       Available project libraries: DIG, IO, ANA and 90123AATOP

        lib_list = list("DIG" "IO" "ANA" "90123AATOP")


        lib_list_length = length(lib_list)
        count_mem_list = 0
        l_libs=list()

        while( count_mem_list != lib_list_length

                lib_member = car(lib_list)
                lib_list = cdr(lib_list)

                lib_member_symbol=list(stringToSymbol(lib_member))
                l_libs=append1(l_libs lib_member_symbol)

                count_mem_list++
        ) ;; close while

        l_fields_skip = list()

        l_TField1_skip = list( hiCreateToggleField(
        ?name 'TField1_skip
        ?prompt ""
        ?choices l_libs
        ?itemsPerRow 2
        ?value '(nil nil nil nil)
        ;?numSelect 6
        ?callback list("" "" "" "")
        ) 10:10 30:20 0)
        l_fields_skip=append1(l_fields_skip l_TField1_skip)


        hiCreateAppForm(                ;create Form
        ?name 'SkipLibForm
        ?formTitle "Choose lybraries to be skipped"
        ?fields l_fields_skip
        ?buttonLayout  'OKCancel
        ?buttonDisabled '(Defaults Apply Help)

;        ?initialSize '(560 630)
;        ?initialSize t
        ?minSize '(300 120)
        ?callback '( "CCSskip_lib_app_formApplyCB(l_libs)")
        )

        hiSetFormPosition(  (xCoord(hiGetMaxScreenCoords())/2)-560/2 :
                                                (yCoord(hiGetMaxScreenCoords())/2)-200  )

        hiDisplayForm(SkipLibForm)

)


procedure( CCSskip_lib_app_formApplyCB(SkipLibForm_lib_name)
   let( ()

    SkipLibForm_lib_op = SkipLibForm->TField1_skip->value
    SkipLibForm_lib_name_length = length(SkipLibForm_lib_name)
    count_mem_lib_name_list = 0
    temp_lib_str_list=list()
    while( count_mem_lib_name_list != SkipLibForm_lib_name_length

            t_key = car(SkipLibForm_lib_name)
            SkipLibForm_lib_name=cdr(SkipLibForm_lib_name)
            t_val = car(SkipLibForm_lib_op)
            SkipLibForm_lib_op = cdr(SkipLibForm_lib_op)
            t_key_i = car(t_key)
            if( t_val==t then
            temp_lib_str_list=append1(temp_lib_str_list t_key_i)
        )
        count_mem_lib_name_list++
        ) ;; close while
   
   
    skip_lib_final_string = buildString(temp_lib_str_list)
    printf("List of libraries to be skipped:%s\n" skip_lib_final_string)
   
   ) ;let
) ;procedure

 Hello Andrew,

 

Here I post routine similar to the original  routine in my script. In this routine you can select which from the available in the certain project libraries to be included in the output procedure: DIG, IO, ANA and 90123AATOP in the example. In this example the output procedure is just printing: printf("List of libraries to be skipped:%s\n" xxx).

To execute the routine start the function:  Choose_skip_lib()

You can see that you can select and unselect each library except  90123AATO. If you select or unselect it error message appear:

 SYNTAX ERROR found at line 1 column 38 of file *string*
*Error* lineread/read: syntax error encountered in input

procedure( Choose_skip_lib()

;       Description
;       Available project libraries: DIG, IO, ANA and 90123AATOP

        lib_list = list("DIG" "IO" "ANA" "90123AATOP")


        lib_list_length = length(lib_list)
        count_mem_list = 0
        l_libs=list()

        while( count_mem_list != lib_list_length

                lib_member = car(lib_list)
                lib_list = cdr(lib_list)

                lib_member_symbol=list(stringToSymbol(lib_member))
                l_libs=append1(l_libs lib_member_symbol)

                count_mem_list++
        ) ;; close while

        l_fields_skip = list()

        l_TField1_skip = list( hiCreateToggleField(
        ?name 'TField1_skip
        ?prompt ""
        ?choices l_libs
        ?itemsPerRow 2
        ?value '(nil nil nil nil)
        ;?numSelect 6
        ?callback list("" "" "" "")
        ) 10:10 30:20 0)
        l_fields_skip=append1(l_fields_skip l_TField1_skip)


        hiCreateAppForm(                ;create Form
        ?name 'SkipLibForm
        ?formTitle "Choose lybraries to be skipped"
        ?fields l_fields_skip
        ?buttonLayout  'OKCancel
        ?buttonDisabled '(Defaults Apply Help)

;        ?initialSize '(560 630)
;        ?initialSize t
        ?minSize '(300 120)
        ?callback '( "CCSskip_lib_app_formApplyCB(l_libs)")
        )

        hiSetFormPosition(  (xCoord(hiGetMaxScreenCoords())/2)-560/2 :
                                                (yCoord(hiGetMaxScreenCoords())/2)-200  )

        hiDisplayForm(SkipLibForm)

)


procedure( CCSskip_lib_app_formApplyCB(SkipLibForm_lib_name)
   let( ()

    SkipLibForm_lib_op = SkipLibForm->TField1_skip->value
    SkipLibForm_lib_name_length = length(SkipLibForm_lib_name)
    count_mem_lib_name_list = 0
    temp_lib_str_list=list()
    while( count_mem_lib_name_list != SkipLibForm_lib_name_length

            t_key = car(SkipLibForm_lib_name)
            SkipLibForm_lib_name=cdr(SkipLibForm_lib_name)
            t_val = car(SkipLibForm_lib_op)
            SkipLibForm_lib_op = cdr(SkipLibForm_lib_op)
            t_key_i = car(t_key)
            if( t_val==t then
            temp_lib_str_list=append1(temp_lib_str_list t_key_i)
        )
        count_mem_lib_name_list++
        ) ;; close while
   
   
    skip_lib_final_string = buildString(temp_lib_str_list)
    printf("List of libraries to be skipped:%s\n" skip_lib_final_string)
   
   ) ;let
) ;procedure