3:57 a.m.
Dear Gretl Team,
As a part of my job in function package maintenance, I'm trying to make a
Hansl script to (1) create a list of functions available in the Gretl
internet server, (2) download them using the new "install" command and, (3)
execute the examples.
I really appreciate your help to build a list with the names of the
functions. I'm using the following code to retrieve the names:
<hansl>
string functions_page = readfile("
http://ricardo.ecn.wfu.edu/gretl/cgi-bin/gretldata.cgi?opt=SHOW_FUNCS";)
string line = ""
scalar i = 1
loop while getline(functions_page, line) --quiet
string line_name = sprintf("line_%d", i++)
string @line_name = strstr(line, "current_fnfiles/")
string @line_name = strstr(@line_name, "<tt>")
string @line_name = strsub(@line_name, "</td><td>", "
")
string @line_name = strsub(@line_name, "</a>", "")
string @line_name = strsub(@line_name, "</td></tr>",
"")
string @line_name = strsub(@line_name, "<p>", "'")
string @line_name = strsub(@line_name, "<tt>", "'")
string @line_name = strsub(@line_name, "</tt>", "'")
string @line_name = strsub(@line_name, "</p>", "'")
string @line_name = strstrip(@line_name)
if @line_name = ""
delete @line_name
else
print @line_name
endif
endloop
</hansl>
It gives me something like this:
(...)
'addlist.gfn' 'Allin Cottrell' '1.2' '2010-12-17'
'Sequential addition
of variables to a model'
(...)
Now I need to use just the first piece of the string ("addlist") to combine
it with the install command. Something like this:
<hansl>
install addlist.gfn
</hansl>
Now my question: How could I extract the first "element" of my string?
Best regards / Um abraço,
Henrique Andrade
11:20 a.m.
On Wed, 6 May 2015, Henrique Andrade wrote:
Dear Gretl Team,
As a part of my job in function package maintenance, I'm trying to make a
Hansl script to (1) create a list of functions available in the Gretl
internet server, (2) download them using the new "install" command and, (3)
execute the examples.
See if you like this:
<hansl>
function scalar chop_up(string line, bundle *ret)
bundle ret = null
# trim the beginning
string l = ""
string r = ""
string l = strstr(line, "current_fnfiles/")
string l = strstr(l, "<tt>")
string l = strsub(l, "</td><td>", " ")
string l = strsub(l, "</a>", "")
string l = strsub(l, "</td></tr>", "")
# now start chopping
string r = strstr(l, "</tt>")
scalar d = strlen(l) - strlen(r)
err = (d==0)
if err
return 1
endif
string ret["name"] = substr(l, 5, d)
l = r
string r = strstr(l, "</p>")
scalar d = strlen(l) - strlen(r)
err = (d==0)
if err
return 2
endif
string ret["author"] = substr(l, 11, d)
l = r + 7
string r = strstr(l, "</p>")
scalar d = strlen(l) - strlen(r)
err = (d==0)
if err
return 3
endif
string ret["version"] = substr(l, 3, d)
l = r + 7
string r = strstr(l, "</p>")
scalar d = strlen(l) - strlen(r)
err = (d==0)
if err
return 4
endif
string ret["date"] = substr(l, 3, d)
l = r + 9
string r = strstr(l, "</p>")
scalar d = strlen(l) - strlen(r)
err = (d==0)
if err
return 5
endif
string ret["description"] = substr(l, 1, d)
return err
end function
### -------------------------------------------------------------------------------
string functions_page =
readfile("http://ricardo.ecn.wfu.edu/gretl/cgi-bin/gretldata.cgi?opt...
string line = ""
bundles pkglist = null
loop while getline(functions_page, line) --quiet
string line = strstr(line, "current_fnfiles/")
bundle b = null
scalar err = chop_up(line, &b)
if !err
pkglist += b
endif
endloop
loop i=1..nelem(pkglist) --quiet
bundle b = pkglist[i]
printf "%4d: %s\n", i, b["name"]
endloop
</hansl>
-------------------------------------------------------
Riccardo (Jack) Lucchetti
Dipartimento di Scienze Economiche e Sociali (DiSES)
Università Politecnica delle Marche
(formerly known as Università di Ancona)
r.lucchetti(a)univpm.it
http://www2.econ.univpm.it/servizi/hpp/lucchetti
-------------------------------------------------------
1:11 p.m.
On Wed, 6 May 2015, Henrique Andrade wrote:
Dear Gretl Team,
As a part of my job in function package maintenance, I'm trying to make a
Hansl script to (1) create a list of functions available in the Gretl
internet server, (2) download them using the new "install" command and, (3)
execute the examples.
I really appreciate your help to build a list with the names of the
functions. I'm using the following code to retrieve the names:
<hansl>
string functions_page = readfile("
http://ricardo.ecn.wfu.edu/gretl/cgi-bin/gretldata.cgi?opt=SHOW_FUNCS";)
string line = ""
scalar i = 1
loop while getline(functions_page, line) --quiet
string line_name = sprintf("line_%d", i++)
string @line_name = strstr(line, "current_fnfiles/")
string @line_name = strstr(@line_name, "<tt>")
string @line_name = strsub(@line_name, "</td><td>", "
")
string @line_name = strsub(@line_name, "</a>", "")
string @line_name = strsub(@line_name, "</td></tr>",
"")
string @line_name = strsub(@line_name, "<p>", "'")
string @line_name = strsub(@line_name, "<tt>", "'")
string @line_name = strsub(@line_name, "</tt>", "'")
string @line_name = strsub(@line_name, "</p>", "'")
string @line_name = strstrip(@line_name)
if @line_name = ""
delete @line_name
else
print @line_name
endif
endloop
</hansl>
It gives me something like this:
(...)
'addlist.gfn' 'Allin Cottrell' '1.2' '2010-12-17'
'Sequential addition
of variables to a model'
(...)
Now I need to use just the first piece of the string ("addlist") to combine
it with the install command. Something like this:
<hansl>
install addlist.gfn
</hansl>
Now my question: How could I extract the first "element" of my string?
Here's a suggestion:
<hansl>
string page = \
readfile("http://ricardo.ecn.wfu.edu/gretl/cgi-bin/gretldata.cgi?opt...
string line
string fname
loop while getline(page, line) --quiet
string s = strstr(line, "current_fnfiles/")
if strlen(s) > 0 && sscanf(s + 16, "%[^\"]", fname)
printf "got '%s'\n", fname
endif
endloop
</hansl>
The sscanf format '%[^\"]' says: read a string until you encounter
'"'
then stop (the leading '^' represents negation in this context).
Allin
6:56 p.m.
Dear Jack and Allin,
Wow! This is a real programming class! Thanks a lot for your help! Now I'm
almost finishing my scripts to start testing the functions.
Um abraço,
Henrique
2015-05-06 10:11 GMT-03:00 Allin Cottrell <cottrell(a)wfu.edu>:
On Wed, 6 May 2015, Henrique Andrade wrote:
Dear Gretl Team,
>
> As a part of my job in function package maintenance, I'm trying to make a
> Hansl script to (1) create a list of functions available in the Gretl
> internet server, (2) download them using the new "install" command and,
> (3)
> execute the examples.
>
> I really appreciate your help to build a list with the names of the
> functions. I'm using the following code to retrieve the names:
>
> <hansl>
> string functions_page = readfile("
> http://ricardo.ecn.wfu.edu/gretl/cgi-bin/gretldata.cgi?opt=SHOW_FUNCS";)
>
> string line = ""
> scalar i = 1
>
> loop while getline(functions_page, line) --quiet
> string line_name = sprintf("line_%d", i++)
> string @line_name = strstr(line, "current_fnfiles/")
> string @line_name = strstr(@line_name, "<tt>")
> string @line_name = strsub(@line_name, "</td><td>", "
")
> string @line_name = strsub(@line_name, "</a>", "")
> string @line_name = strsub(@line_name, "</td></tr>",
"")
> string @line_name = strsub(@line_name, "<p>", "'")
> string @line_name = strsub(@line_name, "<tt>", "'")
> string @line_name = strsub(@line_name, "</tt>",
"'")
> string @line_name = strsub(@line_name, "</p>", "'")
> string @line_name = strstrip(@line_name)
> if @line_name = ""
> delete @line_name
> else
> print @line_name
> endif
> endloop
> </hansl>
>
> It gives me something like this:
>
> (...)
> 'addlist.gfn' 'Allin Cottrell' '1.2' '2010-12-17'
'Sequential addition
> of variables to a model'
> (...)
>
> Now I need to use just the first piece of the string ("addlist") to
> combine
> it with the install command. Something like this:
>
> <hansl>
> install addlist.gfn
> </hansl>
>
> Now my question: How could I extract the first "element" of my string?
>
Here's a suggestion:
<hansl>
string page = \
readfile("
http://ricardo.ecn.wfu.edu/gretl/cgi-bin/gretldata.cgi?opt=SHOW_FUNCS";)
string line
string fname
loop while getline(page, line) --quiet
string s = strstr(line, "current_fnfiles/")
if strlen(s) > 0 && sscanf(s + 16, "%[^\"]", fname)
printf "got '%s'\n", fname
endif
endloop
</hansl>
The sscanf format '%[^\"]' says: read a string until you encounter
'"'
then stop (the leading '^' represents negation in this context).
Allin
_______________________________________________
Gretl-devel mailing list
Gretl-devel(a)lists.wfu.edu
http://lists.wfu.edu/mailman/listinfo/gretl-devel
--
Henrique Andrade
3267
days inactive
3279
days old
3 comments
3 participants
participants (3)
-
Allin Cottrell -
Henrique Andrade -
Riccardo (Jack) Lucchetti