linereadstring() function problem

I modified the code - and added some comments - to show how to do this. The problem was that if you simply used the toggle field symbols as prompts, it expects the symbols to be legal names, which they aren't. This is easy to resolve - I also removed some of the less efficient parts of the code (see comments).

Regards,

Andrew

procedure( Choose_skip_lib()

let((lib_list l_libs l_fields_skip l_TField1_skip)
;       Description
;       Available project libraries: DIG, IO, ANA and 90123AATOP

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


/*
        ; rather inefficient way of converting a list of strings to a list
	; of symbols
        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
*/
	; Convert list of libraries to a list of symbols and strings. The symbol begins with
	; tog_ so it has a legal name, and the second entry in the list is the prompt
	l_libs=foreach(mapcar libName lib_list 
	    list(concat('tog_ libName) libName)
	)

        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
        )

	;----------------------------------------------------------------
	; Record the list of libraries on the form (avoids a global variable)
	;----------------------------------------------------------------
	SkipLibForm->lib_list=lib_list

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

        hiDisplayForm(SkipLibForm)

)
)


procedure( CCSskip_lib_app_formApplyCB(form)
   let( (temp_lib_str_list skip_lib_final_string)

    ;--------------------------------------------------------------------
    ; Use setof with two lists - the first list is the names of the library
    ; to filter, whereas the second is the list of toggle values.
    ;--------------------------------------------------------------------
    temp_lib_str_list=setof((libName togField) form->lib_list form->TField1_skip->value togField)
    /*
    ; inefficient way of finding out the library names
    ; 
    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

I modified the code - and added some comments - to show how to do this. The problem was that if you simply used the toggle field symbols as prompts, it expects the symbols to be legal names, which they aren't. This is easy to resolve - I also removed some of the less efficient parts of the code (see comments).

Regards,

Andrew

procedure( Choose_skip_lib()

let((lib_list l_libs l_fields_skip l_TField1_skip)
;       Description
;       Available project libraries: DIG, IO, ANA and 90123AATOP

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


/*
        ; rather inefficient way of converting a list of strings to a list
	; of symbols
        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
*/
	; Convert list of libraries to a list of symbols and strings. The symbol begins with
	; tog_ so it has a legal name, and the second entry in the list is the prompt
	l_libs=foreach(mapcar libName lib_list 
	    list(concat('tog_ libName) libName)
	)

        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
        )

	;----------------------------------------------------------------
	; Record the list of libraries on the form (avoids a global variable)
	;----------------------------------------------------------------
	SkipLibForm->lib_list=lib_list

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

        hiDisplayForm(SkipLibForm)

)
)


procedure( CCSskip_lib_app_formApplyCB(form)
   let( (temp_lib_str_list skip_lib_final_string)

    ;--------------------------------------------------------------------
    ; Use setof with two lists - the first list is the names of the library
    ; to filter, whereas the second is the list of toggle values.
    ;--------------------------------------------------------------------
    temp_lib_str_list=setof((libName togField) form->lib_list form->TField1_skip->value togField)
    /*
    ; inefficient way of finding out the library names
    ; 
    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