Lines Matching +full:curl +full:- +full:examples
29 $! This needs to be run on an ODS-5 volume.
84 $! SPDX-License-Identifier: ISC
96 $ myprocdir = f$parse(myproc,,,"DIRECTORY") - "[" - "]" - "<" - ">"
102 $ mydir = mydir - "[" - "]" - "<" - ">"
113 $ resultd = resultd - "][" - "><" - ".;" - ".."
114 $ resultd_len = f$length(resultd) - 1
117 $ resultd = resultd - ref_root_base - "reference." + "vms_source."
120 $ resultd_len = f$length(resultd) - 1
124 $ ref_root_dir = ref_root_dir - "[" - "]"
130 $ ref_base_dir = "curl"
131 $ wrk_base_dir = "curl"
136 $ if f$search("src_root1:[000000]curl.dir") .eqs. ""
138 $ create/dir/prot=o:rwed src_root1:[curl]
146 $ ref_base_dir = "curl"
147 $ wrk_base_dir = "curl"
152 $ if f$search("vms_root1:[000000]curl.dir") .eqs. ""
154 $ create/dir/prot=o:rwed vms_root1:[curl]
167 $! Future - check the device types involved for the
197 $ rel_path = ref_dir - "[" - ref_base_dir
198 $! rel_path_len = f$length(rel_path) - 1
200 $! rel_path = rel_path - ".]" - ".>" - "]" - ">"
205 $! if rel_path .eqs. ".examples.scripts^.noah]"
207 $! rel_path = ".examples.scripts_noah]"
209 $! if rel_path .eqs. ".examples.scripts^.v2]"
211 $! rel_path = ".examples.scripts_v2]"
315 $ rel_path = ref_dir - "[" - wrk_base_dir