RedBoot中配置使用的是cdl脚本，请教各位有没有该种脚本语言的详细教程

jyhhappyjyh

最近在研究redBoot的启动配置，发现redboot在配置方面做得还是比较方便的，它使用
的是组件描述语言cdl。如：

1. cdl_package CYGPKG_HAL_MIPS {
   
2.     display "MIPS architecture"
   
3.     parent        CYGPKG_HAL
   
4.     hardware
   
5.     include_dir   cyg/hal
   
6.     define_header hal_mips.h
   
7.     description   "
   
8.         The MIPS architecture HAL package provides generic support
   
9.         for this processor architecture. It is also necessary to
   
10.         select a CPU variant and a specific target platform HAL
    
11.         package."
    
12. 
    
13.     cdl_interface CYGINT_HAL_MIPS_VARIANT {
    
14.         display  "Number of variant implementations in this configuration"
    
15.         requires 1 == CYGINT_HAL_MIPS_VARIANT
    
16.     }
    
17. 
    
18.     compile       hal_misc.c context.S mips-stub.c mipsfp.c
    
19.     compile       hal_syscall.c
    
20. 
    
21.     make {
    
22.         <PREFIX>/lib/vectors.o : <PACKAGE>/src/vectors.S
    
23.         $(CC) -Wp,-MD,vectors.tmp $(INCLUDE_PATH) $(CFLAGS) -c -o $@ $<
    
24.         @echo $@ ": \\" > $(notdir $@).deps
    
25.         @tail -n +2 vectors.tmp >> $(notdir $@).deps
    
26.         @echo >> $(notdir $@).deps
    
27.         @rm vectors.tmp
    
28.     }
    
29. 
    
30.     define_proc {
    
31.         puts $::cdl_header "#define HAL_ARCH_PROGRAM_NEW_STACK hal_arch_program_new_stack"
    
32.     }
    
33. 
    
34.     cdl_option CYGHWR_HAL_MIPS_CPU_FREQ {
    
35.         display "CPU frequency"
    
36.         flavor  data
    
37.         legal_values 0 to 1000000
    
38.         default_value 50
    
39.         description "
    
40.            This option contains the frequency of the CPU in MegaHertz.
    
41.            Choose the frequency to match the processor you have. This
    
42.            may affect thing like serial device, interval clock and
    
43.            memory access speed settings."
    
44.     }
    
45. 
    
46.     cdl_option CYGDBG_HAL_MIPS_DEBUG_GDB_CTRLC_SUPPORT {
    
47.         display "Architecture GDB CTRLC support"
    
48.         calculated { CYGDBG_HAL_DEBUG_GDB_CTRLC_SUPPORT || CYGDBG_HAL_DEBUG_GDB_BREAK_SUPPORT }
    
49.         active_if { CYGINT_HAL_DEBUG_GDB_CTRLC_UNSUPPORTED == 0 }
    
50.         description "
    
51.             If either the CTRLC or BREAK support options in hal.h are set
    
52.             then set our own option to turn on shared generic support for
    
53.             control C handling."
    
54.     }
    
55. 
    
56.     cdl_option CYGSEM_HAL_MIPS_EMULATE_UNIMPLEMENTED_FPU_OPS {
    
57.         display  "Emulate unimplemented FPU opcodes"
    
58.         flavor   bool
    
59.         default_value 1
    
60.         description "
    
61.            Enabling this option will include a hook in the exception
    
62.            processing so that Unimplemented Operation FPU exceptions
    
63.            may be handled. This option has no effect if there is no
    
64.            hardware floating-point unit. Note that not all situations
    
65.            in which an exception is raised may be handled. If not, the
    
66.            exception will be passed on as normal through the standard
    
67.            exception delivery mechanism."
    
68.     }
    
69. 
    
70.     cdl_interface CYGINT_HAL_MIPS_STUB_REPRESENT_32BIT_AS_64BIT {
    
71.         display  "Represent 32-bit registers as 64-bit to GDB"
    
72.         flavor booldata
    
73.         description "
    
74.         This interface may be implemented by MIPS variant or platform HALs
    
75.         to instruct the MIPS stub to interwork correctly with GDB which
    
76.         expects 64-bit register values, even in application code which has
    
77.         been compiled as 32-bit.  Do not use this for real 64-bit code."
    
78.     }
    
79. 
    
80.     cdl_interface CYGINT_HAL_MIPS_INTERRUPT_RETURN_KEEP_SR_IM {
    
81.         display  "Interrupt return keeps interrupt mask bits in SR"
    
82.         description "
    
83.         On some MIPS variants, the status register (SR) contains a number
    
84.         of interrupt mask bits (IM\[0..7\]).  Default behavior is to restore
    
85.         the whole SR over an interrupt.  This means that if the ISR
    
86.         modifies those bits, the change is lost when the interrupt returns.
    
87.         If this interface is implemented, changes made to the SR IM bits by
    
88.         an ISR will instead be preserved.
    
89.         Variants whose HAL_INTERRUPT_MASK() routines (et al) modify the IM
    
90.         bits in the SR should implement this interface to get the necessary
    
91.         preserving behavior."
    
92.     }
    
93. 
    
94.     cdl_component CYGPKG_REDBOOT_MIPS_OPTIONS {
    
95.         display       "Redboot for MIPS options"
    
96.         flavor        none
    
97.         no_define
    
98.         parent        CYGPKG_REDBOOT
    
99.         active_if     CYGPKG_REDBOOT
    
100.         description   "
     
101.             This option lists the target's requirements for a valid Redboot
     
102.             configuration."
     
103. 
     
104.         cdl_component CYGSEM_REDBOOT_MIPS_LINUX_BOOT {
     
105.             active_if      CYGBLD_BUILD_REDBOOT_WITH_EXEC
     
106.             display        "Support booting Linux via RedBoot"
     
107.             flavor         bool
     
108.             default_value  1
     
109.             description    "
     
110.                This option allows RedBoot to support booting of a Linux kernel."
     
111.             compile -library=libextras.a redboot_linux_exec.c
     
112. 
     
113.             cdl_option CYGDAT_REDBOOT_MIPS_LINUX_BOOT_ENTRY {
     
114.                 display        "Default kernel entry address"
     
115.                 flavor         data
     
116.                 default_value  0x80100750
     
117.             }
     
118. 
     
119.             cdl_option CYGDAT_REDBOOT_MIPS_LINUX_BOOT_ARGV_ADDR {
     
120.                 display        "Default argv address"
     
121.                 flavor         data
     
122.                 default_value  0x80030000
     
123.             }
     
124. 
     
125.             cdl_option CYGDAT_REDBOOT_MIPS_LINUX_BOOT_COMMAND_LINE {
     
126.                 display        "Default COMMAND_LINE"
     
127.                 flavor         data
     
128.                 default_value  { "" }
     
129.             }
     
130.         }
     
131.     }
     
132. 
     
133. }
     

复制代码

我对这种脚本语言几乎不懂，看这个只能靠猜，有没有哪位仁兄对这个比较在行的，指导一下！

jyhhappyjyh

回复 1# jyhhappyjyh


    原来cdl不是一种新的语言，是tcl脚本，语法规则一致！

tsb831211

对，只是一种脚本

东方云滨

还真不懂这个