Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,25 +0,0 @@
|
|||
with Ada.Text_Io; use Ada.Text_Io;
|
||||
|
||||
generic
|
||||
SortName : in String;
|
||||
type DataType is (<>);
|
||||
type SortArrayType is array (Integer range <>) of DataType;
|
||||
with procedure Sort (SortArray : in out SortArrayType;
|
||||
Comp, Write, Ex : in out Natural);
|
||||
|
||||
package Instrument is
|
||||
-- This generic package essentially accomplishes turning the sort
|
||||
-- procedures into first-class functions for this limited purpose.
|
||||
-- Obviously it doesn't change the way that Ada works with them;
|
||||
-- the same thing would have been much more straightforward to
|
||||
-- program in a language that had true first-class functions
|
||||
|
||||
package Dur_Io is new Fixed_Io(Duration);
|
||||
|
||||
procedure TimeSort (Arr : in out SortArrayType);
|
||||
|
||||
procedure Put;
|
||||
|
||||
procedure Put (File : in out File_Type);
|
||||
|
||||
end Instrument;
|
||||
|
|
@ -1,57 +0,0 @@
|
|||
*>****L* cobweb/cobweb-gtk [0.2]
|
||||
*> Author:
|
||||
*> Author details
|
||||
*> Colophon:
|
||||
*> Part of the GnuCobol free software project
|
||||
*> Copyright (C) 2014 person
|
||||
*> Date 20130308
|
||||
*> Modified 20141003
|
||||
*> License GNU General Public License, GPL, 3.0 or greater
|
||||
*> Documentation licensed GNU FDL, version 2.1 or greater
|
||||
*> HTML Documentation thanks to ROBODoc --cobol
|
||||
*> Purpose:
|
||||
*> GnuCobol functional bindings to GTK+
|
||||
*> Main module includes paperwork output and self test
|
||||
*> Synopsis:
|
||||
*> |dotfile cobweb-gtk.dot
|
||||
*> |html <br />
|
||||
*> Functions include
|
||||
*> |exec cobcrun cobweb-gtk >cobweb-gtk.repository
|
||||
*> |html <pre>
|
||||
*> |copy cobweb-gtk.repository
|
||||
*> |html </pre>
|
||||
*> |exec rm cobweb-gtk.repository
|
||||
*> Tectonics:
|
||||
*> cobc -v -b -g -debug cobweb-gtk.cob voidcall_gtk.c
|
||||
*> `pkg-config --libs gtk+-3.0` -lvte2_90 -lyelp
|
||||
*> robodoc --cobol --src ./ --doc cobwebgtk --multidoc --rc robocob.rc --css cobodoc.css
|
||||
*> cobc -E -Ddocpass cobweb-gtk.cob
|
||||
*> make singlehtml # once Sphinx set up to read cobweb-gtk.i
|
||||
*> Example:
|
||||
*> COPY cobweb-gtk-preamble.
|
||||
*> procedure division.
|
||||
*> move TOP-LEVEL to window-type
|
||||
*> move 640 to width-hint
|
||||
*> move 480 to height-hint
|
||||
*> move new-window("window title", window-type,
|
||||
*> width-hint, height-hint)
|
||||
*> to gtk-window-data
|
||||
*> move gtk-go(gtk-window) to extraneous
|
||||
*> goback.
|
||||
*> Notes:
|
||||
*> The interface signatures changed between 0.1 and 0.2
|
||||
*> Screenshot:
|
||||
*> image:cobweb-gtk1.png
|
||||
*> Source:
|
||||
REPLACE ==FIELDSIZE== BY ==80==
|
||||
==AREASIZE== BY ==32768==
|
||||
==FILESIZE== BY ==65536==.
|
||||
|
||||
id identification division.
|
||||
program-id. cobweb-gtk.
|
||||
|
||||
...
|
||||
|
||||
done goback.
|
||||
end program cobweb-gtk.
|
||||
*>****
|
||||
|
|
@ -1,16 +0,0 @@
|
|||
>>IF docpass NOT DEFINED
|
||||
|
||||
... code ...
|
||||
|
||||
>>ELSE
|
||||
!doc-marker!
|
||||
========
|
||||
:SAMPLE:
|
||||
========
|
||||
|
||||
.. contents::
|
||||
|
||||
Introduction
|
||||
------------
|
||||
ReStructuredText or other markup source ...
|
||||
>>END-IF
|
||||
|
|
@ -1,3 +0,0 @@
|
|||
(defun hello (n)
|
||||
"Say hello to the user."
|
||||
(message "hello %d" n))
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
(defvar one-hundred 100
|
||||
"The number one hundred.")
|
||||
|
|
@ -1 +0,0 @@
|
|||
help about_comment_based_help
|
||||
|
|
@ -1,64 +0,0 @@
|
|||
REBOL [
|
||||
Title: "Documentation"
|
||||
URL: http://rosettacode.org/wiki/Documentation
|
||||
Purpose: {To demonstrate documentation of REBOL pograms.}
|
||||
]
|
||||
|
||||
; Notice the fields in the program header. The header is required for
|
||||
; valid REBOL programs, although the fields don't have to be filled
|
||||
; in. Standard fields are defined (see 'system/script/header'), but
|
||||
; I can also define other fields as I like and they'll be available
|
||||
; there.
|
||||
|
||||
; This is a comment. The semicolon can be inserted anywhere outside of
|
||||
; a string and will escape to end of line. See the inline comments
|
||||
; below.
|
||||
|
||||
; Functions can have a documentation string as the first part of the
|
||||
; argument definition block. Each argument can specify what types it
|
||||
; will accept as well as a description. All typing/documentation
|
||||
; entries are optional. Notice that local variables can be documented
|
||||
; as well.
|
||||
|
||||
sum: func [
|
||||
"Add numbers in block."
|
||||
data [block! list!] "List of numbers to add together."
|
||||
/average "Calculate average instead of sum."
|
||||
/local
|
||||
i "Iteration variable."
|
||||
x "Variable to hold results."
|
||||
] [
|
||||
x: 0 repeat i data [x: x + i]
|
||||
either average [x / length? data][x] ; Functions return last result.
|
||||
]
|
||||
|
||||
print [sum [1 2 3 4 5 6] crlf sum/average [7 8 9 10] crlf]
|
||||
|
||||
; The help message is constructed from the public information about
|
||||
; the function. Internal variable information isn't shown.
|
||||
|
||||
help sum print ""
|
||||
|
||||
; The source command provides the source to any user functions,
|
||||
; reconstructing the documentation strings if they're provided:
|
||||
|
||||
source sum print ""
|
||||
|
||||
; This is an object, describing a person, whose name is Bob.
|
||||
|
||||
bob: make object! [
|
||||
name: "Bob Sorkopath"
|
||||
age: 24
|
||||
hi: func ["Say hello."][print "Hello!"]
|
||||
]
|
||||
|
||||
; I can use the 'help' word to get a list of the fields of the object
|
||||
|
||||
help bob print ""
|
||||
|
||||
; If I want see the documentation or source for 'bob/hi', I have to
|
||||
; get a little tricky to get it from the object's namespace:
|
||||
|
||||
x: get in bob 'hi help x print ""
|
||||
|
||||
probe get in bob 'hi
|
||||
Loading…
Add table
Add a link
Reference in a new issue