Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
...
Checking mergeability… Don't worry, you can still create the pull request.
  • 8 commits
  • 11 files changed
  • 0 commit comments
  • 2 contributors
Commits on May 24, 2012
@cgay cgay make-dylan-app: Use new strings, explicit imports, newline. 094040d
@cgay cgay Add strings submodule. a20a057
@cgay cgay Merge pull request #223 from cgay/new-strings
Use new strings library in make-dylan-app.
38415a4
@cgay cgay strings registry entry e9a7054
@waywardmonkeys Merge pull request #224 from cgay/new-strings
strings registry entry
46ceee3
Commits on Jun 03, 2012
@waywardmonkeys Use atexit to invoke application-exit functions.
This was using a destructor function but it doesn't appear that
that was working after we started using constructor functions
and might call exit from within a constructor function.

Fixes #219.
2e5da83
Commits on Jun 06, 2012
@waywardmonkeys Obey CC envvar in Makefiles. ece3591
@waywardmonkeys Disable inlining for clang.
Clang follows C99 while gcc follows GNU89 behavior for inlining.
These are different enough that we have build problems.

See http://clang.llvm.org/compatibility.html#inline for further
details.
1d5ca63
View
3  .gitmodules
@@ -22,3 +22,6 @@
[submodule "sources/lib/regular-expressions"]
path = sources/lib/regular-expressions
url = git://github.com/dylan-lang/regular-expressions.git
+[submodule "sources/lib/strings"]
+ path = sources/lib/strings
+ url = git://github.com/dylan-lang/strings.git
View
2  OVERVIEW.txt
@@ -207,7 +207,7 @@ sources
for things like DDE via command shell.
collection-extensions - Extensions from Gwydion Dylan.
midi - MIDI library.
- string-extensions - Add'l string methods.
+ strings - Additional string methods.
t-list - A variation of a <deque>. Don't know its purpose.
network - Socket and protocol libraries.
ole - COM and OLE libraries.
View
1  sources/dfmc/c-run-time/Makefile.in
@@ -17,6 +17,7 @@ LIBDEST = $(OPEN_DYLAN_USER_INSTALL)/lib
BINDEST = $(OPEN_DYLAN_USER_INSTALL)/bin
INCDEST = $(OPEN_DYLAN_USER_INSTALL)/include
+CC = @CC@
AS = as -L
AR = ar -q
View
3  sources/dfmc/c-run-time/debug-print.c
@@ -15,6 +15,9 @@
#if defined(WIN32)
#define INLINE __inline
+#elif defined(__clang__)
+//---*** Do something better.
+#define INLINE
#else
#define INLINE inline
#endif
View
6 sources/dfmc/c-run-time/run-time.c
@@ -58,6 +58,9 @@ extern OBJECT KPunboundVKi;
#if defined(WIN32)
#define INLINE __inline
+#elif defined(__clang__)
+//---*** Do something better.
+#define INLINE
#else
#define INLINE inline
#endif
@@ -4678,7 +4681,7 @@ static BS9 bs_boole_xor_ = {
void GC_set_max_heap_size(unsigned long);
-static __attribute__((destructor)) void call_application_exit_functions(void) {
+static void call_application_exit_functions(void) {
extern D Kcall_application_exit_functionsVKeI();
(void) Kcall_application_exit_functionsVKeI();
}
@@ -4692,6 +4695,7 @@ void _Init_Run_Time ()
initp = 1;
trace_init();
trace_runtime("Initializing runtime");
+ atexit(call_application_exit_functions);
GC_init();
initialize_threads_primitives();
GC_set_max_heap_size(MAX_HEAP_SIZE);
View
1  sources/lib/run-time/pentium-freebsd/Makefile.in
@@ -21,6 +21,7 @@ MPS_PLATFORM = fri4gc
MPS_VARIANT = hi
MPS_LIB = $(MPS_ROOT)/code/$(MPS_PLATFORM)/$(MPS_VARIANT)
+CC = @CC@
AS = as -L
AR = ar -q
View
1  sources/lib/run-time/pentium-linux/Makefile.in
@@ -21,6 +21,7 @@ MPS_PLATFORM = lii4gc
MPS_VARIANT = hi
MPS_LIB = $(MPS_ROOT)/code/$(MPS_PLATFORM)/$(MPS_VARIANT)
+CC = @CC@
AS = as -L
AR = ar -q
1  sources/lib/strings
@@ -0,0 +1 @@
+Subproject commit 095cb01efe69faa437f5ea24cc39544b14ddd9b7
View
1  sources/registry/generic/strings
@@ -0,0 +1 @@
+abstract://dylan/lib/strings/strings.lid
View
28 sources/tools/make-dylan-app/library.dylan
@@ -4,15 +4,27 @@ define library make-dylan-app
use common-dylan;
use io;
use system;
- use string-extensions;
+ use strings;
end library make-dylan-app;
define module make-dylan-app
- use common-dylan, exclude: { format-to-string };
- use format;
- use file-system;
- use streams;
- use standard-io;
- use locators;
- use character-type;
+ use common-dylan,
+ exclude: { format-to-string };
+ use format,
+ import: { format,
+ format-to-string };
+ use file-system,
+ import: { create-directory,
+ with-open-file,
+ working-directory };
+ use standard-io,
+ import: { *standard-error* };
+ use locators,
+ import: { <directory-locator>,
+ <file-locator>,
+ merge-locators };
+ use strings,
+ import: { alphabetic?,
+ alphanumeric?,
+ decimal-digit? };
end module make-dylan-app;
View
4 sources/tools/make-dylan-app/make-dylan-app.dylan
@@ -69,7 +69,7 @@ define function write-registry
with-open-file (stream = merge-locators(as(<file-locator>, name), generic),
direction: #"output",
if-does-not-exist: #"create")
- format(stream, "abstract://dylan/%s.lid", name)
+ format(stream, "abstract://dylan/%s.lid\n", name)
end with-open-file;
end;
@@ -87,7 +87,7 @@ define function is-valid-dylan-name? (word :: <string>) => (name? :: <boolean>)
every?(is-name?, word) &
case
alphabetic?(word[0]) => #t;
- digit?(word[0])
+ decimal-digit?(word[0])
=> block (return)
for (i from 1 below word.size - 1)
if (alphabetic?(word[i]) & alphabetic?(word[i + 1]))

No commit comments for this range

Something went wrong with that request. Please try again.